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Sir Francis Drake Adventure is described as the most complex program published in 
Phoenix's Brainteasers for the Commodore 64. An authentic historical adventure game 
based on Francis Drake's circumnavigation of the world, from 1577 to 1580. Deal with all 
the hazards of the seas .Page 3 
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a living - jumping out of an aeroplane onto a trampoline several hundred feet below. What 
do you mean we can't be serious? We are and you have just three Stuntmen to attempt 
this jump. From Games Book II by Melbourne House .Page 12 
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handed in a bid to relieve the safe of its contents. As their masked faces appear at the 
window you must get them in your sights and fire. Shoot them before they shoot you .... 
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bouncing ball who are determined to halt your artistic journey .Page 22 


Destroyer is a an all action battle at sea. The enemy subs are closing in for the kill. What 
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so make the most of it. All sorts of obstacles conspire to stop your reaching the summit. 
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If you think bricklayers just sit around all day eating 
Pot Noodle then you are mistaken. They are an industrious 
breed, especially the brickies on this Vic 20 site. They need 
to be as two looney robots are on the loose demolishing the 
walls. Better immobilise them with a few swiftly flung 
bricks before they destroy the mornings hard work Page 3 

Hoppa is the best Frogga you can ever hope to get for 
nothing for your Vic. This is an extremely pretty piece of 
programming. Object of this popular computer game is to 
hop your frog to the safety of the river bank. Cross a busy 
road and a fast-flowing river.Page 10 

Beeglebug is a colourful maze game set deep in the jungle. 
Manouevre your little man around the maze collecting the 
blue blobs. But watch out for the poisonous mushrooms 
and electric fences. It takes a lot of skill with the joystick of 
keyboard to find your way out of this maze.Page 16 

Dracula's Nightmare. Its not easy being a vampire in the 
twentieth century. I mean you try to be modern about 
things, keep a few cups of blood in the refrigerator and 
what happens - some ghoul hides the red stuff all round 
the house. Help Drac find his favourite tipple, drink a few 
cups, and get back to sleep in his coffin.Page 31 

Just because this game is called Sucker doesn't mean any 
sucker can play it. You will need considerable skill and 
thought to get the six balls from the top of the screen to the 
bottom in the correct sequence. Vic owners can puzzle 
away into the New Year with this one.Page 33 
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ROBOT BRICKY 


By Hadge Smith 



The brickies are busy trying to earn a Christmas bonus watch his Xmas bonus disappear into thin air. And 
to buy presents for their families. neither do the Brickies in this game — but instead, set to 

The walls are going up even quicker than they bombing the rampaging droids from the top of the 
.. 1 scaffolding. 


The walls are going up even quicker than they 
usually do and even the miserable foreman has a smile 
on his face because everyone on the building site is 
working so quickly. 

Productivity is very high until two crazy robots 
appear on the scene and start demolishing the walls. 

No self-respecting Bricky is going to stand by and 
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scaffolding. 

Robot Bricky has been listed using our Easy-Enter 
technique to make it simple for you to enter. 
Instructions on how this works can be found on page 3 
of this supplement. 


3 DIMA*(4,3),H%<4,3),D(4>,B<4>:P0K£C0,8: 

FORA»OT04; X*X+800: F0RB*OT03: A* (A, B> * H VtC-20" : H% ( A, B) *XI X*#X-50: NEXT®, A 

--- ~~ --- MPVT 


4 F0RA*0T04:X*X+800:F0RB*OT03:A*(A,B)* H VIC 

5 FORI*7168T07679 : POKE I , REEK (I +25600) ; NEXT 
I »OT039: RE AD A: POKE7448+ I . AS NEXT : LI st 4 

)<4>=-22 
: B (4) 


22;G0SUB600 

_ _ Z=Y:POKECH,255 

15 PRINT" ECLS3 w :R=8032: S-R+21:W=S054J V* 10: T"OOOOOO* : LI«*LI-♦ 1; IFH«0THgN300 

25 P0RI-8t°3T0WSTEP^^P0KEi : 3S^p 816 ' , * I+ ®' S:MeXT 
30 PRINT"CHOMI“wHTISCOPp fr,’ f ^ 1 • 2 = ^XT 

'.\\ j too C-C-1SIPC— 1THENC-4 

160 e-e :E^-E*(|<5 TmjollT 01 ' PL ‘ 3S> THEN170 
200 F0RT*P+22T08163STEP22'POKET^37*p* ^‘RETURN 

ITo ’•^ T -.^^‘. 2 30- ( «r<r-7724, / 22, 

-^/ X 









m 




.ihiyj 




m 


IA Nt. 








I 




1 




.1 









Z\L -: • 




COMMODORE USER 







































COMMODORE USER 















: hr*;! 5)!CL *=ci 

■chp* (154)!CD *= 

CHR *< j 46) . Y 

C HR*<3l>« e 4!c 

54P? YPs?8,! *y* 
54273 :SS=5< , 272 

^f! =54e? 8*REM 

Chp! <15?):R ^= 
CHR$(i45 ) 

)= “ 9339393045 
999399300g ( 
'=" 9 99999 30 00 g 
"999500000 
7 995000000 0| 
09980030000 ^ 
0^7900000000 
* 0^800002000 
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SIR FRANCIS DRAKE 


Him 
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This is an authentic historical adventure game based 
on Francis Drake's circumnavigation of the world, 
from 1577 to 1580. As you travel in the footsteps of 
the greatest of Elizabeth the First's free-booting ad¬ 
venturers, you will encounter the same problems and 
challenges as Drake. 

Drake sailed in search of the elusive North West 
Passage that would allow him access to the Pacific, 
and the galleons of the Spanish Empire. As history 
books will already have told you, he did not find the 
object of his quest, but he did find much more, and so 
will you as you sail into the Francis Adventure Game. 

How to play 

When the program has been loaded and RUN, you will 
hear the gentle lapping of waves against the shore. 

On the map you will see your position marked by a 
black sailing ship, docked near the port of Lima. After 
the map has been displayed, there is a short period 
before the ''week, cargo'' titles appear. When these 
titles appear the game starts. 

Everytime you use this game, the dangers and treas¬ 
ures will be located in different parts of the ocean, so 
do not think that you can predict your moves too 
easily. We didn't feel it was fair, however, to move 
the rocks, reefs and Spanish galleons during the game, 
so try and remember their locations. It will help you 
considerably. 

You must follow Drake's route by first travelling to 
the port known as New Albion and thence onward, 
past Java, to the bottom left hand corner of the map. 

Your aim is to reach the bottom of the map with, at 
least, four times the amount of the cargo with which 
you began. 

If you achieve this feat of daring then you will, natur¬ 
ally, be rewarded by the gift of a knighthood from your 
grateful, and avaricious Queen. 

You move using the ARROW cursor keys. 
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At intervals you will be told the situation at sea and 
asked which action you would like to take, from the 
choice shown. 

Remember to consider your options carefully as to 
the amounts of cargo, food, cannon balls and crew 
conditions. 

If the program does not understand your response, 
you will hear a two-note tune and you should try again. 

Damage rating is based on a 1 to 10 scale. If you are 
damaged to the level of 10 then I'm afraid that it's into 
the sea for you, as the Golden Hind settles gently 
below your feet. 

Do your best, as the present Government is empty¬ 
ing the coffers more quickly than you are filling them. 


000220000079810000000000009 


260 MS <13) = " 000000010000000000000000009 
999 “ 

270 MS(14)=“ 000000006908000000000000004 
999 " 

280 M$<15>=" 000000699989000000000000000 
999 " 

290 M*<16 > = " 000006999999800000000000000 
099 M 

300 GOSUB2520 
310 GOSUB2250 

320 M*<15)=" 00000069998900000000000000E 
EEE " 

330 M^ <16) = " 00000699999980000000000000E 
EEE " 

340 GOSUB1180 

350 FORY =1TO 16 

360 FORX =2T031 

370 C*=MID$<MS<Y>,X, 1 > 

380 IFCS="9"THENGOTO430 

390 IFCS="0"THENIS=INT<7*RND <1)):GOSUB19 
50 s GOTO430 

400 IFC$= M E "THENIS=4:GOSUB1950:GOTO430 
410 IF <X >4ANDX<15ANDY>7ANDY<14)THENIS=IN 
T < 2 *RND <1> +7)s GOSUB1950:GOTO430 
420 IS=10 s GOSUB1950 
430 NEXT:NEXT 

440 CA=100:SU=100:CR=85:BA=100:DA=0:WK=1 

450 EN=0 s AL =0 

460 X=29!Y=16 s X1=29 s Y1-16 

470 IFWKMTHENPOKEXP ,X+4:POKEYP ,Y:SYSXY: 
PR INTBL*; SH*; WHS; 

480 POKEXP,35 s POKEYP,0 : SYSXY: PR INTLBS; "W 
EEK " 

490 POKEYP,3 5 SYSXYs PR INT"CARGO" 

500 POKEYP,6 s SYSXY:PR INT"FOOD u :POKEYP,9 s 
SYSXYsPRINT"CREW"sPOKEYP,12:SYSXYsPR INT" 
BALLS“ 

510 POKEYP,15:SYSXY:PR INT"DAMG. " ; WHS 
520 IFX< >1QRY< >16THENGOTO580 
530 GOSUB1180:PR INT"YOU HAVE SURVIVED TH 
E UNKNOWN,AND NOW K DW ■; 

540 PRINT M YOU ARE THE FIRST COMMANDER OF 
A FLEET TO SAIL AROUND THE WORLD." 

550 EN=1 

560 IFCA > S 400THENPRINT"ARISE SIR FRANCIS 

570 GOTO2240 

580 IF <X =17ANDY=1)0R<X=18ANDY = 2>OR <X=19A 
MDY = 4 >THENAL=1 

590 IFX <15ANDAL = 0THENGOSUB1180 SPRINT"GO 
BACK TO NEW ALBION" 

600 IFSU>0THENGOTO640 
610 GOSUB1180 

620 PRINT"YOUR SUPPLIES HAVE BEEN USED U 
P SO YOUR "; 

630 PR INT"CREW MUTINIES ,AND KILLS YOU"s 
SU = 0:EN=1 


Hints and changes you can make 
One of the problems of displaying a map on the 
screen, is how to reduce the memory required and the 
number of lines needed to describe the map. This is 
done here by defining a string array MS, with the 
number of elements being equal to the number of rows 
on the map. Standard shapes are then used. The 
shapes are as shown below: 


Each row of the map is assigned to an element of MS 
using the above shapes, and zero (to represent 
blanks.) 

If you find the adventure too easy, then reduce the 
cargo (CA), food (SU), crew (CR), and/or cannon balls 
(BA) that you start with. They are on line 440. If you 

reduce the 


find that knighthood escapes you, then 
400 in line 560. 
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Francis Drake is 
just one of the 
listings in G Ludinski's 
Brainteasers for the 
Commodore 64. 
Phoenix Publishing 
Associates. £5.95. 
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64 0 IFCR >0THENGOTO680 

650 GOSUB1 180:PR INT"YOUR CREW HAVE ALL B 
EEN KILLED IN BATTLEOR "; 

660 PR I NT"HAVE DIED OF SCURVY,TYPHUS OR 
DYSENTERY.YOU ARE STRANDED”; 

670 PRINT" WITHOUTTHEM,":CR=0:EN=1 
680 I FDA >10THENGOSUB1180:PR INT"YOUR SHIP 
HAS FILLED WITH WATER AND SUNK■:EN=1 
690 IFBA < 0THENBA = 0 
700 I FCA < 0THENCA = 0 
710 IFEN=1THENGOTO2240 

720 POKEXP,36s POKEYP,1:SYSXY:PR INTRIGHT$ 
(" "+STR*(WK>,4) 

730 POKEYP,4:SYSXY:PRINTRIGHT$<" "+STR 

$<CA),4) 

740 POKEXP,36:POKEYP,7:SYSXY:PR INTRIGHT$ 
<" " +STRSCSU) ,4) 

750 POKEYP,10:SYSXY:PR INTRIGHT$< 


+ ST 

R$<CR>,4) 

760 POKEXP,36:POKEYP,13:SYSXY:PR INTRIGHT 
*<” "+STR$<BA),4) 

770 POKEXP,36:POKEYP, 16:SYSXY:PR INTRIGHT 
" ” + S TR $ < D A ) ,4 ) 

780 GETI $: IFI$ =”"THENGOTO780 

790 IF <X= 1ANDI$ = LA$)OR <X = 30ANDI$ = RA$)OR< 

Y=1 AND I$=UA$)OR <Y=16AND I $=DA$ ) THENG0T078 


800 GOSUB1180 

810 XM$=MID$<M$<Y>,X-1,1):X0$=MID*<M$<Y) 
,X,1):XP$=MID$<M$<Y>,X+1,1) 

820 YM*=MID*<M$<Y-1),X,1):YP$=MID$<MS<Y+ 
1),X,1) 

830 IFI$=LA$ANDXM$< >"0"ANDXM*< >*9"ANDX0$ 
< >”2”THENX=X-1 

840 IFI$=RA$AND<XP$< >"2"ANDXP$< >"9"ANDX0 
$0-0" )THENX=X + 1 

850 IFI*=DA$AND<YP$< >"3"ANDYP$< >"9"ANDX0 
$<>"1 " )THENY=Y♦1 

860 IFI$=UA$AND<YM$< >*1"ANDYM$< >"9"ANDX0 
$< > "3")THENY=Y-1 
870 WK =WK +1 

880 IFDA<>0THENDA=DA+1 
890 SU=SU-1 

900 POKEXP,X1+4:P0KEYP,Y1:SYSXY:PR INT". " 


910 POKEXP,X+4:POKEYP,Y:SYSXYs PR INTBL$;S 
H*; WH$; 

920 IFX0*< >"A"ORDA=0THENGOTO950 

930 DA=0:GOSUB1180 SPRINT; "YOU HAVE "; 

940 PRINT"ARRIVED AT A PORT SO YOU CAN 
NOW GET YOUR SHIP REPAIRED":GOTO 1010 
950 IFX=X1ANDY = Y1ANDWK <>1THENGOSUB2010 s G 
OSUB1030 s GOTO 1010 

960 IFX0$="4"THENGOSUB1180 s GOTO 1010 

970 IFX0*="5“THENGOSUB1220 

980 IFX0$ s "6"THENGOSUB1430 

990 I FX0$= "7"THENGOSUB 1860 

1000 IFX0*="8"THENGOSUB1910 

1010 X1=X s Y1=Y 

1020 GOTO520 

1030 REM REEF SUBROUTINE 
1040 W=INT < 2*RND <1)) 

1050 RR$=“ROCK"s IFX<15THENRR$=“REEF - 
1060 IFW=0THENGOSUB1180sPRINT"THERE IS A 
";RR$; " AHEAD.TURN AROUND -sGOTO 1170 
1070 GOSUB1180 SPRINT"YOU HAVE RUN AGROUN 
D ON A -;RR$;-.ARE YOU GOING TO THROW " 
1080 PRINT-CARGO f\ND GUNS OVERBOARD ,0R P 
UT OUT AN ANCHOR TO WINDWARD" 

1090 INPUTR^s SG$="OVERBOARD"sGOSUB2060: I 
FFO=1THENR$="OVERBOARD -sGOTO 1120 
1 100 SG$="ANCHOR":GOSUB2060: IFFO =1THENR$ 
= "ANCHOR":GOTO 1120 

1 1 10 PRINTCU*; :G0SUB2130:GOTO 1090 
1 120 IFR$="OVERBOARD”THENCA=CA-FNRN<20) : 
GOTO 1 170 

1130 W2 =I NT < 2 *RND < 1 ) ) :GOSUB1180 
1140 IFW2 = 0THENPRINT"YOU HAVE BROKEN FRB 
E WITHOUT ANY SIGNIFICANT DAMAGE* 

1150 IF W2 < >0THENPRINT"YOUR SHIP,THE GOL 
DEN HIND,IS HOLED. "; 

1160 IFW2< >0THENPRINT"RETURN TO DRY LAND 
AT ONCE OR IT WILL SINK":DA=DA+1 

1170 RETURN 
1180 REM BLANK LINES 

1 190 POKEXP,0:POKEYP, 19:SYSXY:PR INTS$;S$ 

; s*;s*; left* <s$ ,39); 

1 200 POKEXP,0:POKEYP,19:SYSXY 
1210 RETURN 

1220 REM NAMED SHIP SUBROUTINE 
1230 G0SUB2190:GOSUB1180 

1240 M 1 *= "YOU SEE A SPANISH GALLEON,THE 
CACAFUEGO.ARE YOU GOING TO ATTACK IT OR" 
1250 M1* = M 1* + " IGNORE IT" 

1260 M2*="Y0U SEE A SPANISH GALLEON,THE 
ESPRITO SANTO.ARE YOU GOING TO ATTACK" 

1270 M2*=M2*+" IT OR IGNORE IT" 

1280 IFFNRN<2> = 1THENPRINTM1$sGOTO 1300 
1290 PRINTM2* 

1300 INPUTR*:SG*="ATTACK"sGOSUB2060sIFFO 
=1THENR*="ATTACK"SGOTO1330 

13 10 SG*="IGNORE":GOSUB2060s IFFO =1THENR* 

= " IGNORE”:PRINTCU$; :GOTO 1330 

1320 PR INTCU*; :G0SUB2130:GOTO 1300 

1330 IFR*< >"ATTACK"THENGOTO1420 

1340 GOSUB1180 

1350 IFCA>0THENGOTO1390 

1360 PRINT"YOU DRAW ALONGSIDE THE GALLEO 
N THEN FIND YOU HAVE NO "; 
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1370 p RlNT-r . 
™ ISH WIN THE 

I 1380 EN=i: 

I 1390 Pr int 
I FINALLY 

I 1 400 pR in T > 
j HOLD Op THE 
1 14,0 CA=CA-- 
itoi 00 . Ne;ktd 

M80 RETURN 

11430 re*, SH 
I 1450 GOSUB 2180 

t a1 GNORE: " IG °TOl 

p 

p 

| M^ONS at 

1520 PR j nt 
8 M DRif t — 

1530 PR I NT' 

1540 INPUTR* 

>550 SG*=» S p-| 


CANNON BP 

- battle 

GOTO 1 4 g 0 
y ° u fight 

„ T *KE COMT^, 
AN D TRPNSI 
GOLDEN Hi 
+ FNRN<20):rc 


BAT TLE and 

GALLEON"; 
RGO TO THE 


FNRN<20j 


SUBROUTINE 
*GOSUBl 180 
SEE A SPANISI 
^ACK IT or 
’ATTACK ":GC 

GOTO 1 490 

^bosubpobb. 

GOSUB 5 i 30 . got 

- t HENRETURN 

PR,NT -^f r 

JOLJAROG It OR 
■"ALONGSIDE i T 
-:SG*=-CANNON 

'«-^OTC, 580 

^z;%:^‘ GOSUBa ° s °'-”° 

G °sue I ' G0S UB2130 :goto , 5 , 

'»» i'ffw"■ iwenboto ibbb 

!e "> ^.NT^'Sf^OTOisae M 
0F your Cr _ SHip gets holed 
SGG SH °T.R£TUm ■ 

"-PNRNtSa,,^ “"° « T ONCE■ tOft-r 

530 pd,k • CR= CR-Fnrm^,„ _ OB - c 


T ° FIRE Y( 

OR SET Fl RE 

SHlp S AND L 
sneak up ■• 
PND BOARD I 
'“••GOSUB 2060 


S0 IFR*<>”SNEAK“THENGOTO1850 

70 GOSUB1180 

80 IFFNRN<2)=1THENGOTO1820 
■90 PR INT“THEY SEE YOU APPROACHING AND 
ALISING THAT YOU ARE ENGLISH THEY 

iee print-open pipe, sh00T, ^ t sg ^“ 

YOUR CREW AND DAMAGING YOUR BOAT.RETUR 

310 PRINT- TO PORT AT ONCE“*BA=BA-FNRN< 

, > *OA=DA+lsCR=CR-FNRN<10)SGOTO1850 
B20 PRI^T-THEY ASSUME YOU ARE SPANISH^ 
PNGLISH SHIPS HAVE NEVER BEEN THIS p 
S^P^NT-FPR BEFORE, SO YOU «N«3E 'TO 
BOARD THE GALLEON AMD CAPTURE IT AMD I 

340 PRINT” RICH CARGO”:CA=CA+FNRN<20):S 
I =SU + FNRN< 20 > SBA=BA +FNRNC20> 

,850 RETURN 

[860 REM TRADE SUBROUTINE 

1360 ' GOSUB^180 1 PR I NT “YOU BUY CUOYES CHEB 
=ly from the islamjers 

1890 CA=CA+FNRN<20>:SU=SU+FNRN<20> 

1900 RETURN 

1910 REM HOSTILE SUBROUTINE 

1930 60SUb!180SPRINT“HOSTILE ISLANDERS P 
E LT YOU WITH STONES* SCR=CR-FNRN<20> 

1940 RETURN 

1950 REM INSERT SUBROUTINE 

I960 IL*=RIGHT* <STR*<1S >,LEN<STR*<IS > > ~1 

1970 IF1S< >10THENM*<Y)=LEFT$<M*<Y),X“1) + 

ii s+RIGHT*(M*<Y>,31"X> sGOTO 1990 
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m - . bt^= " " ! FOR uou 

:BT*=BT*+CHR*< 164)sNEXT 

£=LEFT*(TP*,9) 

";BT*s FORJ = 1TO16 s PRINT“ 

64 +J >;" ‘»CHR* <167 ); «FOR I=2T031 

> ,!->>’■ .FP-O-rnEMRF 

-p-2THENPRlNTCHR*< 162)? '• G0T024 10 
■p-lfflEWR 1NTCHR*( 16 1 > > ! G0T024 10 
INTR 1*' CHR«< « 1 » *<>*> 1 


IFP=5THENPR1NTCHR^<169); sG0 
IF p=6THENPR INTR \* m * CHR*< 169 ) 

0 

IF p=7THENPRlNTCHR*< 127)J 5 60 

tpp=8THENPRINTR1*;CHR*<12 7 > 


£400 IFP=9THENPRINTR1*;“ ■»» 

2410 NEXT 

£4£0 PR1NTCHR*<165) 

2430 NEXT _ w ^ v , 

£440 POKEXP,12«POKEYP,1«SYSX 
r^w A lbion-;gr*;R1«J"-’»bl* 

I £450 POKEXP,28:POKEYP, 15-SYS 

ft > ;GR*;R 1 * ; “ •' 

2460 POKEXP , 5: POKEYP ,13s SYS) 1 
I JAVA" 

I 2470 PR1NTUJH*; 

2480 P0KEXP,5:POKEYP,17*SYS) 

CHR*<163);TP* 


1990 RETURN 


2000 P0KE52,48:P0KE56 

2010 REM REEF COLL IS I 
2020 POKEUIV , 129: POKEV 
SR,248 

2030 POKES 1,68 sP0KES2 

XTT 

2040 POKEUIV ,0 :POKEVL ,I 
2050 RETURN 
2060 REM STRING IN STI 
2070 IFLEN <|?*)< LEN < SG* ) THENFO 
2080 FORL=lTOLEN<R*)-LEN<SG*) 
2090 IFSG*=MID*<R*,l,LEN<SG*> 

OTO2120 
2100 NEXT 
2110 FO=0 
2120 RETURN 

2130 REM UIRONG SOUND SUBROUTII 
2140 POKEUJV ,33 s POKEVL ,15: PC„£I 
2150 POKES1,45sP0KES2,198sFOR’ 
XTT 

2160 POKES 1,43sPOKES2.5?:cnoT, 


PRINTGR*; 


149sFORT 


£500 POKEXP,5 sPOKEYP,18:SYSXY.r,* 
45678901234566890123456789 
£510 RETURN 

2520 REM TITLE SUBROUTINE 
£530 POKE53280,2 : POKE53281, ‘ 

^!rem border,background ami upper 

| 2 5s0 FOR^TOI^PRIMTCD*; sNEXTI 

I £560 PRINTSPCC13);“FRANCIS DRAKE 
PRINTSPC(13);“ADVENTURE 6A*E 

2570 FOR I = 1TO12 8 PRINTCD*; s NEXT 
12580 PRINIBL$J 

gS PRINT- COPYRIGHT <C> O 

2S00 3 POKEUV,129* POKERD,255lPOKE 
\tUl POKEVlT^S lPOKES 1 ,45lP0KESI 
gg'^SKGR.POKESE.IRS.PORT 
I XTT 

2640 POKES 1,45SP0KES2 

I XTT 

12650 POKES 1 ,36?POKESE 
12660 POKEVL,2?POKES 1 , 

I1TO300 S N£* TT 

2670 NEXT 


1TO300 1 NE 


1TO300 5 NE 


1TO300 5 NEX 


0:POKEAD,0 


214?FORT 


dd ^ 0 RFM DRAW MAP SUBROUTINE 
2260 POKE53280,6sP0KE53281 ,6 
l:REM BORDER,BACKGROUND AND I 
2270 PRINTCL*;GR*; 


2680 RETURN 






















Hoppa is one of those games that 
will make you feel a little jumpy. 

In fact, jumping is what this 
game is all about. You are a hard- 
pressed little frog who is trapped 
beside a busy road. 

The object of the game is to 
hop our little hero to the safety of 
his natural habitat - a river bank 
just beyond the road. 

Trucks and cars are thundering 
down the road and will squash 
froggy if he should jump at the 
wrong moment. 

If you succeed in hopping the 
frog to the far side of the road you 
will meet a river. 

Using the logs that are floating 
down the river as stepping stones 
you must hop to the safety of the 
bank at the far side. 

Use key "j" to go up, "space" 
for down, "j" for left, and "k" for 
right. 

Hoppa has been listed with our 
unique Easy-Enter technique to 
make it simple for you to enter. 
Instructions on how this works 
can be found on page 3 of this 
supplement. 


COMMODORE USER 





















5 P0KE37159,255:P0KE36878,IS:POKE37879,255 

10 P0KE36879,8:PRINT"C CLS3C GRN]C 3CD]CREV 3 C 8SPC 3H0PPAE 9SPC3 C OFF 3" 

20 PRINT " t2CD 3 E WHT12-tRED 3LEFT EWHT3X-ERED3RIGHT E WHT 3F1 - ERED 3UP: PRINT " E CD3 £7S 
PC 3 E WHT 3 F3-E RED 3 DOWN" 

30 PRINT"ECYN3E3CD3E6SPC3M.MOK 1984" 

40 PRINT"£ 2CD3 EWHT 3 E 8SPC 3READY!" 

SO G0SUB650CLR 

60 SC»0:L=3:Sl*36875:Fl*32:F2*32:F3*32:P4*32:T%«600:FT*0:P0KE36879,12 
70 op=32:oc*i:y*io:x*io:ti*** 000000 ":pok£36878,is 

80 PRINT"ECLS3ECYN3*** ***' ’*** • »■ * * * ’ * " : PRI NT " £ RED 3 » » * » * E 2SPC 3 » » ’ E 4SPC 3 * • » " 

90 PRINT" CCD3E3SPC3 ’ ’ ’ ’ ’ E 6SPC 3 ’ * * ’ * " .* PRINT" ECD3 E2SPC 3 * ’ * » E8SPC 3 ’ 1 ’ ’ “ 

100 PRINT*ECD3E2SPC3’ ’C 4SPC 3’ * E 4SPC 3 * *":PRINT"ECD3ECYN3 1 »•*» 1 • »»••»*»• • 

j> 

110 PRINT* ECYN3 fc < ) E3SPC 3 EPUR3 tc < ) E 2SPC 3 ERED3 £ 2SPC 3k ( ) • : PRINT" ECD3 CRED3*% EPUR3 
*%£2SPC 3 EGRN3 *%E2SPC3EYEL3*%" 

120 PRINT* ECD3 E GRN 3 E 2SPC 3tt ()£4SPC 3 C CYN3 L OE2SPC3EWHT3 &()*:PRINT"ECD 3EPUR3C2SPC 
3*%E 3SPC 3 C WHT 3 C 2SPC 3 *%C 3SPC 3 E YEL 3 *% C2CD3EGRN3* 

130 P0KE76S3,F1:P0KE7688,F2:POKE7693,F3:P0KE7698,F4 

131 P0KE38403,5:P0KE38408,S:P0KE38413,5:P0KE38418,5 
140 DY*0:DX«0:A*PEEK<197):IFA*39THENDY«-1:P0KES1,200 
ISO IFA=47THENDY*1J POKES1,210 

160 IFA*33TH£NDX*-1:POKES!,220 
170 IFA*26THENDX*1:P0KES1,230 
180 P0KE31,0 

190 IFX+DX<10RX+DX>20TH£N420 
200 IFY + DY >10THEN300 
210 P*PEEK<76S0+X+DX+44#(Y+DYM 
220 IFY >1ANDY< 6ANDP*32THEN42Q 
230 IFY >6ANDP<>32ANDP< >35THEN420 
240 IFY+DY=OANDP< >32THEN420 
250 IFY♦DY*0ANDP*32THEN520 
260 IFDY*OANDDX*0THEN290 

270 P0K£7680+X+44*Y,0P:PQKE38400+X+44*Y,0C 

280 0P*PEEK<7680+X+DX+44#<Y+DY)):OC*PEEK<3840O+X+DX+44#<Y+DY>):SC=SC+10 

290 X*X+DX:Y*Y+DY!P0KE7680+X+44*Y,35:POKE38400+X+44*Y,5 

300 IFY* 10RY*3TH£NX SS X- 1 

310 IFY*20RY*4THENX*X+l 

320 IFY>5ANDY<10THENP0KE7680+X+44*Y,32 

330 P0KE2,30:POKE 1,44:SYS8201 POKE1,88:SYS866:POKE1,132:SYS820:POKE1,176:SYS866 

340 P0KE2,31: POKEl, 8: SYS820: P0KE1,52: SYS866: P0KE1,96: SYS820: POKE! ,140*. SYS866 

350 P=P£EK<7680+X+44*Y> :IFP< >32ANDP< >35TH£N420 

360 IFY >5ANDY<10THENP0KE7680+X+44*Y,35:P0KE38400+X+44*Y,5 

370 IFSC >HITHENHI*SC 

380 PRINT“T:"TI*“ L"L 

390 PRINT"CYELIS: •SC *ECU3":PRINT*E10CRIHI:“HI *C2CU3“ 

400 IFTI>T%THEN420 
410 GOTO140 

420 P0KE7680+X+44*Y,OP:P0KE38400+X+44*Y,OC 
430 PQKE7680+DX+X+44#<Y+DY),35 

440 PRINT"EHOM3"TAB(227)"SPLAT »!* 

441 F0RT*254T0175STEP-1:POKESi*2,T:P0KE3840G+X+DX+44*<Y+DY),1:NEXT i P0KES1+2,O 
450 L*L-liIFL*0THEN800 

460 FORT *1 TO1000:NEXT:GOT070 

470 PRINT”£ WHT 3 E 3CD 3 ANOTHER GAME EY/N3:P0KE36879,14 

480 POKE198,0 

490 GETA*: I FA*= "Y"THEN60 

500 IFA*< >"N“THEN490 

510 P0KE2,0:SYS2 

520 P0KE7680+X+44#Y,OP:PQKE384Q0+X+44*Y,OC 

530 POKE7680+X+DX+44#(Y + DY>,35:P0KE38400+X+DX+44#<Y+DY>,5 

540 FORT*1T030:F0RG*200T0210:P0KES1,G + T:NEXT JNEXT:P0KES1,O 

550 FQRT=1TO1000:NEXT:SC*SC+1000 

560 IFX=3THENF1*35 

570 IF/=8TH£NF2*35 

580 IFX«13THENF3*35 

585 IFX*18THENF4*35 

590 FT*FT +1: IFFT*4THENFT*0:F1*32:F2*32:F3*32:F4*32:T%*T%-120:SC*SC+4000 
595 IFT%<250THENT%*240 
600 G0T070 

610 DATA165,1,133,251,165,2,24,105,120,133,252,162,20,160,0,177,1,72,200,177,1,1 
36,145 

620 DAT A1,200, 104, 145,1,136,177,251,72,200, 177,251,136, 145,251,104,200, 145,251,2 
02, 16 

630 DATA226,96,165,1,133,251,165,2,24,105,120,133,252,162,20,160,20,177,1,72,200 
,177,1 

640 DATA136,145,1,200,104,145,1,136,177,251,72,200,177,251,136,145,2^1,104,200,1 
45,251 

650 DATA136,136,202,16,224,96:F0RT*820T0913:READK:POKET,K:X*X+K:NEXT:IFX< >12468T 
HENSTOP 

660 DATA153,90,60,60,90,129,66,36,31,56,124,255,127,231,36,24,0,128,64,252,254,2 
31,36,24 

670 DATA126,70,71,255,255,231,36,24,255,,248,7,24,231,0,255 

680 DATA255,255,255,255,255,255,1,0,255,255,255,255,255,51,50,204 

690 P0KE56,28:P0KE52,28:P0KE51,O:PQKE55,O:F0RT*0T05i1:P0KE7168 + T,PEEK < 32768 + T):N 
EXT 

700 F0RG*7448TQ7503:READK:POKEG,KJ NEXTJ PGKE36869,255:RETURN 

800 P0KE36865,160:PGKE36879,8:PRINT"ECLS3 - TAB(205)-ECYN3GAME OVER" 

810 FQRX* 160T038STEP''. 2: POKE36865 , X: NEXT 
820 G0T0470 


COMMODORE USER 













and variables, 


Define $ 
memory. 


POKeV*40,l< 
r.POKEl »® :NI 
0:POKEI^2, 


1V3:P0KEV^39, 

•288T012350 :RE« 
POKEI,«5 poKEI4 


-*#*•*• 


mmir 

W" 


m 


so 


STUNTMAN 


Send the stuntman from the plane, and attempt to land 
him on red square on trampoline. Look out for the 
picket fence and the telephone poles! Three misses 
puts a stuntman out of action but you get three men. 
Use space bar to kick man out of plane. 


Variables 

NM 

SC,R 

WS 

T 

F 

NW 

VL,W,A,H,L = 

MS 

X,YI 

X,Y 

M 

XV 


: No men 
: Score, round 
= Wind speed 

: Time parameter for projection equations 
= Flying flag 
= No. of wounds 
=Sound 
= Message 
= X,Y initial values 
= Man's X,Y co-ordinates 
= Mass of man 
= Initial X velocity 


Stuntman is one of the excellent 
programs in Games Book II, from 
Melbourne House at £6.95. 


COMMODORE USER 















































Draw trampoline, fence, hills and swamp, set screen 







colours. 








100 

PRINT- 

m i : 

P0KE33281 

,ii 

IPOKE53280.11 







102 

IPNM-0THEN600 











105 

PRINT- CS 

A 

A 

A 

A 

A 

A A 

A A A A 

Ui 

PP 

A 

A 

A 



A 

A 

A 

A 

A 

A A 

A A A A 

A 

A 

A 

A 

A 


4* 4k .4k 

40* 

48* 

A 

A 

A 

A A 

A A A A 

A 

A 

A 

Ui 

w 


A A 4*. 

4* 

* 8 * 


ss 









107 

PRINTSPC(22)l - Ui W 85 

A A . 

A A A A 

A 

A 

Ui 

pp 

A 


~ ~ — 

A 

A 

4fe 

A 


55 a 

A A A A 

A 

A 

A 

A 

A 


a a a 

A 

A 

48* 

A 

A 

a ua 

pp a a m 

A 

A 

A 

Ui 

PP 


15^ 

A 

ua 

PP * I 









1 10 

PRINT- a 














4k A A 

A 

a 

A 

A 

A 

A A 

A A Ui PP 

A 

A 

A 

55 

A 


ui r a 

A 



w 

A 

A A 

A A A A 

A 

A 

A 

A 



** m ~ 

A 

m. 

A 

ua 

PP 

1 -1 







112 

print- m 

A 

4 *, 

ua 

pp 

A 

A "5 

55 a a Ui 

fP 


A 

A 



-A W A 

A A ^ 

m 

A 

A 

ua 

r 

A A 

^ W A A 

A 

40* 


w 
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PRINT- a 















A 

A 

A 

A A 

A A A A 

A 

4*. 


A 

40* 


a a a 

A 

A 

45* 

40* 

A 

40* 40* 

A A A A 

A 

40* 

A 

45* 

4a* 


A A A 

A 

A 

45> 

45* 

A 

40* 45* 

A '? 






116 

PRINT- „ 














AAA 

A 


45* 

48* 

40* 

A A 

a 55 - 1 






117 

PRINT" a 


45* 

- 

- 

4p* 

C «r 

A A A A 

- 

n 

* 

40* 

A 


♦ * 













118 

PRINT- , 





c 

▼ a 

-: PRINT - a 

- 

- 

- 

▼ 

a 















120 

PRINT" a 

A 

A 

c 

TT 

a 

- \ PRINT* a a -r 

a 

a 

A 

A 

A 


AAA. 

A 

A 

A 

A 

45* 

59 a 

mmm mmmm mmm mmm* 


mmm 

" 



122 

p R I NT * ^ 

€1 

**■ 

a 

a 








65 


/ Ik X 

X 

X 

X 

X 

X 

X 69 

V • 






123 

PRINT- C3 

5T 

1 

a 

a 







65 

X 


tat. X X 

X 

X 

tm 

X 

I* 

X X 

x x es \ 

- 

- 

- 


C AA 

124 

PRINT- C 

1 

1 

a 







65 

X 

a* 


XXX 
1 1 A " 

X 

X 

X 

X 

X 

X X 

X 55 X a 


- 

C 

a 

A a 

126 

PRINT- K2 

1 

« 

a 






55 

B 

4* 

— 


-*• ^* ■*• 

1 

*— 


*— 

■** 

TT 

"*• — 

^ ■ 4k A 

- 

a 

a 


A 

128 

PRINT* C2 

1 

a 

A 

A 

A 

A A 

A A A A 

A 

65 

B 

A 

A 


A 1 A 

» 

- 

4*. 



a 




- 

C 

1 

A A A i> 


130 

PRINT- C 

1 

a 

A 

A 

A 

A A 

A A A A 

A 

65 

B 

A 

A 


AAA. 

A 

A 

A 

A 

A 

A A 

A 1 A A 

A 

A 

A 

c 

a 


1 1 I 

1 

" 











132 

PRINT- E2 

1 

A 

A 

A 

A 

A A 

A A A A 

A 

65 

B 

A 

A 


AAA 

A 

A 

A 

A 

A 

A A 

A B * 






134 

PRINT- — 

—— 


A» 

—* 

*— 

—— —“ 


— 

— 

— 

* 

— 


A* A. _ 

A» 












136 

PRINTlPRINT- 

CD 

— 

— 

— 

> US *1 







140 

P0KEV416* 

1 S POKEV,80 : PQKEV*1,80 

IP0KEV+21,l: 

US- 

5:GOSUB1000:F 


*0:T*0:NW*0 












150 

VL*54296: 

W*54276:A*34277 

:H»34273:L*54272 











Launch and fly the plane, drop the man. 


200 

SYS < 49152 )i SYS(49152 ) 

*. SYS (49152) 






202 

IF ( PEEK ( V+ 1 6) AND1)010RPEEK (V)< 89THEN204 






203 

POKEV ♦ 1, I NT < RND (1) *75*50 )I SC * SC - 10 : GOSUB1000 





204 

IFF*1THEN230 











205 

K*PEEK <197) : 

IFKO60THEN220 







210 

POKEV+2 , PEEK ( V) 

:P0KEV^3, 

PEEK(v^i): f*i:t*0: 

M* = 

! " GERONIMOOOOO 


iii 

a 

GOSUB1300 








212 

IF ( PEEK (V* 16) AND1 ) -0THENPOKEV*16, 0 : G0T0217 




1 

215 

POKEV*16, 

PEEK ( V/«-16 > 0R2 







1 

217 

POKEV+21, 

PEEK < V+21 > 0R2: YI*PEEK ( V* 1 ) 4-8: XI*PEEK ( V) +256*(PEEK 


(V+16)AND! ) 
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« hit target exactly then 


330*3953 

335*2265 ^ 

340*603 l , v 

345*143 |^\ 

350*4613 pWA 

355*2590 

360*2883 ^ 

370*924 

400*5251 

410*2050 

440*525 

450*2827 

460*3810 

470*1686 

480*143 

500*4031 

510*2883 

340*1686 

545*143 

550*4358 

555*2428 

560*1122 I 

570*722 
580*525 
600*1 170 
603*3071 
610*2170 
630*811 j 
700*5657 j 
710*2656 
720*525 
1000*821 
1002*1700 

1005*3856 
1010*512 
1200*3033 
1220*3134 
1230*924 
1300*1308 
1310*143 
10000*4273 
10010-3996 
10020*2828 
10030*1213 
10100*4296 
10110*4174 
10120*4002 
10130*3455 


1*0 

10*3414 
20*3668 
30*3708 
35*1766 
40*1449 
50*2107 
60*973 
100*1778 
102*866 
105*4268 
107*5169 
110*5291 
112*5898 
ii14*3848 
116*2629 
117*2540 
I 118*3580 
1 120*3878 
122*3950 
1 123*5780 

1 124*6186 

I 126*5458 
128*3921 
1 130*3936 
132*2266 
1 134*8933 
1 136*1360 
j 140*4888 
I 150*3125 
1 200*1 762 
I 202*2835 
I 203*3040 
1 204*773 
j 205*1817 
I 210*5492 
212*2841 
I 215*1485 
217*5294 
1 220*772 
l 230*295 
1 240*1520 
1 250*911 
260*2301 

I 270*849 
I 280*2302 
1 290*909 
I 300*852 
1 310*4570 
I I 320*3988 

1 l 325*1345 


accident count, check il man out of action. 


TOTAL 1 


~ IFF *0TH£N200 

IF*<20ORX>33*THeN330 




pokeA. 15 :POKEL > 20 ® 

I ~ r T =ir P OK E — —^ .V.POKHW, ’ 

I 31 :POK E H,80*2*T .y=4.9*T* T /M + Yl 

\\\l x»INT^xI:Y«XNT(V) t6)OR2 :POK E V.2,X- 25 6:OOTO 3 40 

340 V0KEV3.Y_____— 

343 RETURN <—- - I 


,» T 5 KT '' ’ W- 

■ 5 .. 

I l 70 pflKEM, 0 : POKE ft . 8 : RETURN-—■ 


J rs ^- 

again. 


^ STUNT NAN E 

400 GOSUB12«S itpOKEvta 1. * 

1 lECTROCUTED■* yT »sC*SC-i®® 

4l 0 FORTN.1TO3000-.NEXT.SC SC_ 

440 GOTO100 


MM* «dM> C-.-" 1 **“ 

1 dead. -—— 


th f FENCE!• VGOSUB1300SSC-SC 3 ^ 

4S0 N.« * HIT ~ *?0^ GOSUB 100* •• GOSUB 1300 = E “ 0 ' T 

460 w S-IN T <NND(n! I 0! IF NW> 2 THEN700 __ 

47 0 POKEW,0:POKEA,0.4 -- -- 

a«4 RETURN “ 


TRY _ AGA.N-:GOSUB1300:SC-SC-30:NW-NW.1 

S00 N.-OUCH! ! - - - ) 3 GOSUBl 000..GO S UB1300:F-«-f « 

iz — then700 _- 

545 RETURN --—- 


«»«.*«—.**•** "* 

re-start. 


. ^ STUNT . HAN - URONNEO * IN 

350 OOS ^®^p 0 iJ S ! 1 l T • :VoXEU» 2 l. 0 TARGET! ! • 

2 - E °NG - WAY - P«OH * THE - 

HI FORTN.1TO3000-.NEXT 

. BrIIU ’ 1 


570 NW-NW"! 

580 GOTO100 


1 Print terminating message, score and stop game. 


,00 POKES3 2 s0.«-.POK«3 2 ei,0 -- * SSiS- 

60 3 ^ int - 0 ^ h ,t ! p; in T- 


ANE^uv.,_ - y0U R _ SCORE ~ WAS 

^ A <*► ** ** ** 

610 PRINT" -m * * A 

^ • | SC 

630 POKEV+21,0 :EN1 L 


COMMODORE USER 



























restart 


1DEW tS ’ 0 . W M»f» w ' 

rot®*** 1 * 


f 0 R* m * 


tOtAV- 


,-rov’° 

ytWD - 


PORI - 1 

set 


COMMODORE USER 














glBEEGLfBUG 


By Michael Mok 


Beeglebug is a maze game with a difference. This is not 
your average geometric maze full of dots. 

You are the Beeglebug, a mysterious jungle-dwelling 
creature. The object of the game is to collect all the 
blue blobs that are dotted at random around the screen. 

Other jungle inhabitants are the beautiful but deadly 
giant mushrooms. Also watch out for the sides of the 
maze; these can strike down a Beeglebug in its prime. 

Beeglebug can move very swiftly through the maze 
in pursuit of blue blobs. Sometimes too swiftly for its 


10 F0RI=?168T07319:READA:pokei,a:NEXT 
20 F0RZ=256T0263:P0KE7168+Z,0:NEXT 
30 POKE36879,8:PRINT"CCLS3" # 

32 DATA60,126,255,255,255,255,255,255,255, \ 

255,255,255,255,255,126,60 % 

34 DATA63,127,255,255,255,255,127,63,252,254, } 

255,255,255,255,254,252 
40 DATA255,255,255,255,255,255,255,255 
45 DATA24,60,60,126,126,255,255,255 
50 DATA24, 12,6,6,6,12,12,24,24,24,48,48,48, 

24,24,24 

55 DATA24,24,12, 12,60,248,192,0,24,24,24,48, 

56,31,7,0 

60 DATA146,138,132,69,73,42,170,100,72,138,68, 
52,8,200,37,30,132,66,74,132,88,33,34,220 
65 DATA24, 126,255,255,24, 12,6,6,50,123,120,54, 
111,255,246,96 

DATA129,90,60,153,255,60,219,129,129,219,60,255, 
153,60,90,129 

DATA155,74,44,126,126,44,74,155,217,82,52,126,126, 
52,82,217 

PRINT"CWHT3C2SPC3BEEGLEBUG CCYN3 BY M.MOK" 

PRINT"C2CD3CYEL3PR0CEED TO LOAD PART 2CGRN3" 


70 


75 


90 

100 


PART TWO 
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( 


own good - crashing into the killer sides of the maze. 
The secret is to line up the Beeglebug in a direction that 
you know is safe before setting off after a blob. 

To move Beeglebug up press "J", down "space”, 
left "N" and right "M", 

Beeglebug has been listed using our Easy-Enter 
technique. Instructions on how this works can be 
found on page 3 of this supplement. 

n 



CCYN 3 LEFT C 2S 


0 PRINT"[CLS 3"5 :P0KE36879,81P0KE36869,255 

2 PRINT"C4CD3[REV 3CWHT3 BEEGLEBUG CGRN3- BY M.MOK" 

3 PRINT"C4CD3CREV3 CYEL33 CCYN3UPC2SPC3CYEL3X CCYN3DOWNC2SPC3CYEL3< 

PC 3 CCD 3t 6SPC 3CYEL 3> CCYN3RIGHT" 

4 G0T0602 

5 sc= 0 :L=3:Q=3:NU=10:Q=2:R0=1:BL=20000 

6 CF=INT<RND(i)*3)+4:IFCF=5THEN6 
10 B=7910;c=0:G=15 

20 P0KE36878,15:S0=36875 

PRINT"[RED 3 BDDDDDDDDDDDDDDDDDDDDC"5 
PRINT"d AC5SPC3D DC8SPC3D @"5 

PRINT"DC3SPC3CGRN3J KCYEL3LCRED 3A DCGRN3J t RED 3 BDDC C PUR 3 E t RED 3 D D"5 
PRINT"D CCYN 3 E CWHT3G C RED 3 BDC BCCL 3A@C4SPC3@ C YEL 3 G C RED 3 D D"5 

PRINT"D [YEL 3 IC RED 3 BC[6SPC 3 A 0CBLU3E C RED 3 D C YEL 3 F C RED 3 A D"J 

PRINT"DC 3SPC 3 @ C GRN 3 E CRED 3BDCC3SPC3ACWHT3G C RED 3 D BC D"5 
PRINT"D C YEL 3 J C RED 3 D C WHT 3 G C RED 3 @ SCCYN3E C RED 3 BDC AC4SPC3D"5 

PRINT"D C WHT 3 F C RED 3 A C WHT 3 H C RED 3 A DCWHT3F CRED 3dC5SPC3CGRN3K CBLU3ECRED3D"5 

PRINT"D C WHT 3 G CRED3BCC3SPC3DCWHT3H C RED 3 D C PUR 3 E C RED 3 BDDC CYEL3FCRED 3D"5 
PRINT"D SC4SPC3 C GRN 3 L CRED 3DC2SPC3ACWHT3GC3SPC3 C RED 3 @ C 2SPC 3CYEL3GCRED 3D"5 


60 

62 

64 

66 

68 

70 

72 

74 

76 

78 
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r 




! 


I 
































80 PRINT"D D [GRN3J C RED 3BC A BCIWHT3H [GRN3K [RED 3D [GRN3JtYEL3 I £RED 3D"j 
82 PRINT"D DDC tBLU3E[RED 3©13SPC30£3SPC3CYEL3F [RED 3 A BDD"i 

84 PRINT " D D C 3SPC 3 £ WHT 3 I C F^ED 3 A [GRN3K £ RED 3 A £ YEL 3 J £ RED 3 0 £ YEL 3 H £ 5SPC 3 £ RED 3 D " 5 
86 PRINT"DCD £GRN3L£4SPC3 £ RED 30£3SPC3 £WHT3 I £RED 3D£2SPC3 £GRN3J £YEL3K £ RED 3 D"» 

38 PRINT"D A BC £ YEL 3K £RED3D£GRN3K £ RED 3 BCD £ PUR3E£ RED30BC D "} 

90 PRINT"D £ 3SPC 3 0 £ 2SPC 3 0 D£WHT3H£3SPC3CRED3D £ YEL 3 I £ RED 3 A 0 D"5 
92 PRINT"D £ GRN 3 E £ RED 3 D £ CYN 3E £ RED 3 D A£2SPC3 £YEL3K £ RED 3 A BC D D"; 

94 PRINT"D £ WHT 3 F £ RED 3 A £YEL3G£ RED 3DBC BC £ 6SPC 3 A D"> 

96 PRINT'*D £ WHT 3 I £ RED 3 BC C YEL 3 I [RED3A£4SPC 3BC BDC £ 3SPC 3D"} 

98 PRINT"D£6SPC 3BC £PUR 3E£2SPC3 £ RED30C3SPC3BC£GRN3E [RED 3D"; 

100 PRINT"D £ YEL3 L £ RED3BDC£4SPC3 £WHT3F£BLU3E £RED 3ABC £2SPC30 £WHT3F £ RED 3 D“; 

102 PRINT”A£ WHT 3H £ 5SPC 3 £ GRN 3K £ YEL 3J £ GRN 3 L £ YEL 3 G £ WHT 3 G £ 5SPC 3 £ YEL 3 K[RED 3 D £ WHT 3 H £R 
ED3A"; 

104 PRINT"BDDDDDDDDDDDDDDDDDDDCCCL3IDEF3D"5 
108 F0RT=1T0NU 

110 U=INT(RND(1>*4S3)+7701:IFPEEK(U)<>320RU=7910THEN110 

112 POKEU,14:P0KEU+30720,CF 

115 NEXT 

120 V=PEEK(197) 

122 D=0 

123 IFSC>=BLTHENBL=BL+20000:L=L+1:GGT0700 
125 IFV=41THENC=i:G=15 

130 IFV=26THENC=2:G=16 _ 
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:-- 



220 


135 IFV=29THENC=3:G=17 “---- 

140 IFV=3?THENC=4:G=18 
145 IFC=0THEN210 

160 lFC 3 «N»fEEKB-n Si 2:P “ 6 '- 22 ’ 3J: “- 2 «= 

165 IFC 66 NDPEEK L ! B-1: POKEBM , 32: D-2,3 
200 IFPEEK ( NB ’ B * 1 = P0K “-‘ 

“3 POKESO^D * >i,A ^ DPE ^*< I®* < 15THEN300 

-o lO P0KEB+30720, 1 : POKEB, G 
212 POKESO ,0 
220 G0T0120 

250 POKEB,G:P0KEB+30720,1 
255 FORT= 150T0255STEP3 • Pnkrcni , -r ~ 

260 SC=SC + INT (RND (1 ) #500) +500 ’ *’ ° KES0+1 > 0: 

270 NU—NU-1:IFNU=0THEN500 

280 G0T0120 --- 

300 L=L- 1 

)UEU . »° N r'‘ H TU^'c° MPLETE ' 

500 

ssisssss—:~- 

l 1 ' P Rl«f‘ 4 r CB1 ,pcF- 51*1 6M516 „ r ,o.»“ 

512 cr*SC+BO ,*3)+4; 1F CF . . mEXT *• wEXT 

51 4 POKESO,OlN^' 

516 CF . t0 30 cp 8 .POKES 0 * * 

e=oo F 

’ lREOlSTA 0 .P0KES0*1.0-- M6Xt:NEXT 

60 PRlNTl 4C °’tpP-.6 , ft :P0KES0,0-P° 

602 poRTl 5 ™ 4 pro RIPOKESOH,- 

608 ?, PESO *5,1 p T6 P-71 p0l<6 

FOBB-«otoi_eo^| N62 o , £S o,oimfkt:Bbkf__ 

620 eef ^pn-THEMS pp .7P°K esQ ’ 3: 

630 1 riTO620 _,240T02 5 ° ST _- 

64° 60T °t lT oio:F° RS _- © 

FO^" 1 ___ £S y V V . - 

7 .^ ROT0120 " % If /•.: • rl. v- : ~tMk\ 
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BANK RAID 


Scar Face and Fingers thought it would be an easy job. What could go 
wrong? Nice isolated branch of City Bank, safes stuffed with cash and 
jewels, fast get-away van - like stealing candy from kids. 

Like all heists that supposedly can't go wrong, this one goes wrong. 
Scar Face and Fingers had over-looked one thing. The Commodore 
Commandos were in town. Yep - that's you. 

As the villains appear at the windows of the bank you must get them 
in your telescopic sights and pick them off - one by one. The talking is 
over - it's you against the bad guys. 

If you don't shoot quickly enough the get-away van pulls up beside 
the bank and some of the cash is spirited away. 

The game has several difficulty levels-that effect the number of 
villains holed up in the bank. 

The game requires a joystick and full instructions are given at the 
beginning of the game. 

The Bankersville Raid has been listed with our Easy-Enter technique 
to make it simple for you to enter. Instructions on how this works can be 
found on page 3 of this supplement. 


5 PQKE650,128 
10 REM ♦♦SPRITES*-* 

20 V*53248 

40 POKE2042 , 13:PQKE2043,14 
50 FQRG*0T0622READQ2P0KE832*G,Q:NEXT 
60 F0RG*0TQ62:RE ADQ:P0KE896+G, Q 2NEXT 

69 REM**READ IN DATA FOR ROBBERS POSITIONS** 

70 DIMF(20) , X(20) 

80 F0R6*1TG16 
90 READF(G), X(G> 

100 NEXTG 

110 CMN*40:HMN«30:BK*i 

120 br*o:mn»o 

130 SS*132A*100:D*12Q 
135 GOSUB7000 
140 PRINT* CCLS 3" 

150 PRINT"EHQM3 EBLU3 E11CD1E6CR3THIEVES TO CATCH*"JCMN 
160 FORG*OTQi000:NEXT 
170 G0SUB2000 

180 PRINT"EHGM3 E BLU 3£ 2 LCD 3 E 2ICR 3MIGH REWARD* "5HRW 
183 PRINT"EH0M3EBLU3E21CB3BANK*"»BK 
190 W*INT(RND(l)*l5)♦1 

199 REM ++MAIN ROUTINE** 

200 POKEV+30,0:PQKEV+6,F<W):P0KEV*7,X(W) 

210 PQKEV*4,A:P0KEV*5,D 
220 J*PEEK(56321) 

230 IFJ*247 THENA*A*SS 
240 IFT-251 THENA*A-SS 
250 IF3*254 THEND*D-SS 
260 IFJ*253 THEND=D+SS 
270 IFJ*239THEN500 
280 IFTI**A*THENGOT04000 
290 GOSUBIOOO 
300 G0T0200 
500 GOSUB9000 

530 P*PEEK(V*30):IFP<>12THEN280 

560 MN*MN*12 PRINT"C HQM3 t BLU 3E 9CD 3 125CR3CROOKS HIT*"J MN 
570 IFMN >=HMNTHENA**“000001“:POKEV*42,2:SS*18 
580 TI**"000000" 

590 GOTO190 
lOOO REM **CHECK UP** 

1010 IFA<20THENA*20 
1020 IFA >*230TH£NA*230 
1030 IFD >200THEND»200 
1040 IFD< 40THEND*40 

1050 IFMN*CMNTHENPQKEV*21,02 GOT05000 
1060 RETURN 

2000 PRINT"ECLS3"2 PRI NT" E BLU 3 £G>N 3 £ 23G< Y116 >M 3 " 

2010 PRINT * CBLU 3 C G<H3 E 7SPC 3CITY BANK!7SPC 2 £ G<N3 * 

2020 PRINT” CBLUUG<H3 t G >0 3 t G < Y 3 IG >P I C G>0 3 t G< Y 3 t G >P 3 C 2SPC 3 t G>0 3t G< Y 3 C G >P3 12SPC 3 
C G>03 £ G< Y 3 C G>P 3 £ G>0 3 t G< Y 3 £ G >P 3 £G<N3 " 

2030 PRINT"£BLU3CG<H3 E G<H3 EG<N3 £G<H3 EG<N3E2SPC3 1 6<H3 CG<N3C2SPC3CG<H3 EG<N3 
£G<H3 £G<N3 EG<NJ " 

2040 PRINT”EBLU3£G<H3 EG>t3£G<P3EG>«3 EG>L3EG<P3EG>«3E2SPC3EG>L3£G<P3EG>«3E2SPC3 
£G>L3EG<P3EG>83 £G>L3 £G<P3EG>«3 £G<N3 " 

2050 PRINT * E BLU3 E G<M3 E 23SPC 3 £ G<N3 " 

2060 PRINT"CBLU3EG<H3 £G>03EG<Y3tG>P3 CG>0 3EG<Y3£G>P3C 2SPC 3£G>03£G<Y3EG>P1E2SPC 3 
CG>03 E6<Y3 CG>P3 £G>03£G<Y3CG>P3 EG<N3 " 

2070 PRINT"EBLU3 £G<H3 EG<H3 CG<N3 £6<H3 £G<N3 E2SPC 3 E6<H3 C G<N3 £2SPC3 EG<H3 £G<N3 
EG<H3 E 6< N3 £G<N3 * 

2080 PRINT * t BLU 3 C G< H 3 CG>L3CG<P3EG>»3 EG>L3EG<P3£G>83£2SPC3CG>L3EG<P3£G>8 3£2SPC 3 
£G>L3£G<P3£G>83 EG>L3CG<P3£G>«3 £G<N3 " 

2090 PRINT " £ BL.U 3 C G< H 3 £ 23SPC 3 £ G<N 3 " 


Vj 

t * ... 

fAJk 
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2100 

PRINT"CBLU3CGCH3 C G >0 3 C G< Y 3 C G >P 3 C G >0 3 C G< Y 3 C G >P 3 

C G >03 C 3G< Y 3 C G >P 3 

CG>03 CG< Y 

3 C G >P 3 C G >0 3 C G< Y 3 CG>P3 CG<N3 " 



2110 

PRINT"CBLU3CGCH3 CG<H3 CG<N3 CGCH3 CG<N3 CG<H3C3SPC3CG<N3 CGCH3 CG<N3 CG<H3 

C G< N 3 C G< N 3 " 



2120 

PRINT"CBLU3CGCH3 CG>L3CG<P3CG>03 C G >L 3 C G< P 3 E G >0 3 

CG<H3 E3SPC3 CG<N3 

COL 3 C G< P 

3 C G >6 3 t G >L 3[G<P3 C G >0 3 CG<N3 " 



2130 

PRINT"C BLU 3[G< H 3 £ 9SPC 3 C G<H3 C3SPC 3 C G< N 3[9SPC 3 C G< N 3 " 


2150 

PRINT"CBLU3C25G<+3 " 



2160 

PRINT"CBLU3C25G<+3 " 



2170 

PRINT"CBLU3CG>L3C23G<P3CG>@3 " 



2180 

PRINT"CBLU3 C2G< + 3 C3G>B3 C15G< + 3 C 3G>B3I2G< + 3 " 



2190 

PRINT"C BLU 3 C 2G< + 3 C 3G >B 3C15G< + 3 C 3G >B 3 C 2G< + 3 " 



2200 

PRINT"CBLU3C25G<+3 " 



2210 

P0KE53280,14:P0KE53281,1 



2220 

POKEV+41,6:POKEV+42,5 



2230 

POKEV+21,12 



2240 

TI*="000000":A*="000002" 



2900 

RETURN 



4000 

BR=BR+10:PRINT"CH0M3 CCD3 CBLU3 C10CD3 I25CR3STOLEN 

BARS";BR 


4010 

IFBR=1000THEN6000 



4030 

TI*="000000" 



4040 

G0T0190 



5000 

REM + +ROBBERS CAUGHT + + 



5005 

RW=<1000-BR)*10 



5007 

F0RG=1T0 500:NEXT 



5010 

PRINT"CCLS3"IPRINT"CBLU3 CONGRATULATIONS-YOU 

HIT ALL THE ":PRINT 

5020 

PRINT"CBLU3 ROBBERS WITH THEM ONLY STEALING ";BR 

:PRINT 


5030 

PRINT"CBLU3 GOLD BARS.FOR THIS THE BANK HAS ":PRINT 


5040 

PRINT"CBLU3 GIVEN YOU A \"5RW5 "REWARD":PRINT 



5050 

PRINT"CBLU3C11CR3WELL DONE" 



5055 

PRINT"CBLU3CCD3CCR3THERE’S BEEN ANOTHER GOLD ROBBERY" 


5065 

PRINT"CBLU3 CCD 3CCR3PRESS ’FI’" 



5070 

G0SUB7500 , 



5075 

G0T08000 



5080 

END 






rem **gold stolen** 

P0KE53281,! 21>0 

5 PRINT"CCLS cpoiGAME OVER" 

l PRINT" ISEUI115CR1 C9 G<T I " 

sss^SsS^ss-a.- 

r. srr* ;r «”«“ 

%> ppint-ibluuioc^^kersville l i°o° * ftRS : 

040 PRINT" IBLU3 C 0F IT ’S BANK REC f0 UND OUT. ^ 

050 PRINT gold an d THE CRI I robbers,MHO IN" 

’° 60 print-ibluinou.the town IS of the BANKS. 

Zll rRIN^CBLU^N^ %*»» l R r A rEACH BY BXAS " 

7090 f3RlNT ” [ p!'n 1 TO SHOOT THE R0B ®,p bA nK’S WINDOWS IN* 

. PRINT" IBLU3 I then,they em the bank" 

^ t* steal; 

3 PRINT " C ,«tmANB CONE BACK FOR MORE" BA HK,THET 

0 PRINT"IBLU 1000 BARS F YOU’RE* 

, 0 PRINT" IBLUIFIRE L AE L THE OOLD, HOW MUCH" 

290 otmt"LBLU 3THEY AREtRED tS T 0 GUARD" 

'°0 PRiNT-IBLUISHOOT" E QBJ6CT OF THE^ANE^ up . 

320 FP tht'ibloias na M v banks as ;° u ss C iblE ,BEFORE YOU" 

St PRINT" IBL01A HIGH REWARD ^ UXTH JOYSTICK" 

,350 PRINT "IBLUIARE F b l U]M aN0UVER YOUR 
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7360 PRINT"C RED 3 CCD]C CR 3PRESS ’FI’ TO BEGIN GAME...GOOD LUCK":G0SUB7500 
7370 RETURN 
7490 END 

7500 GETB*:IFB*="CF13"THENRETURN 
7510 G0T07500 
7900 END 

3000 REM + +NEW BANK + + 

8010 SS=13:MN=0:BR=0 

8020 HMN=HMN-5:CMN=CMN+2:BK=BK+1:HRW=PRW+RW:PRW=HRW 
8030 IF HMN< =0THENHMN=0 
8040 PRINT"tCLSD" 

8050 GOTO140 

8999 REM ++SOUNDS++ 

9000 VL=54296:WA=54276:AT=54277:H=54272:L=54273 

9010 FORG=15T010STEP-1:POKEVL,G:POKEWA, 33:POKEAT,8:POKEH,1:POKEL,18:NEXT 
9050 pokewa,o:pokeat,o:pokel,o 
9080 RETURN 

10000 REM + + DAT A FOR CROSS+ + 

10030 DATAO, 24,0,0,60,0,0,126,0,0,126,0,0,126,0,0,126,0,0,126,0, 255,255,255 

10040 DATA255,255,255,255,255,255,255,255,255 

10045 DATA255,255,255,0,126,0,0,126,0,0,126,0 

10050 DATAO, 126,0,0,126,0,0,60,0,0,24,0 

10060 DATAO,0,O,0,0,0 

10065 REM + +ROBBER DATA + + 

10070 DATAO,126,0,0,255,0,0,0,0,31,255,248,0,255,128,0,255,192,1,255,192 
10080 DATA3,255,192,3,255,192,1,255,128,0,127,128,0,127,0,1,255,O 
10090 DAT A1,255,0, 1,255,0,0,31,0,0,15,0,0,0,0,0,0,0,0,0,0,0,0,0 

10099 REM ++DATA FOR ROBBERS POSITIONS++ 

10100 DATA37, 193, 181,193 

10110 DATA40, 143,72, 143, 152, 143, 184,143 

10120 DATA40, 111,72,111,112,111,152,111,184,111 

10130 DATA40,79,72,79,112,79,152,79,184,79 



































































Q-BERT 


22 


O PRINTCHR**142)*CHRS<8) 

PQKE53280,0:P0KE53281,0:P0KE56,100:P0KE55,0:P0KE52,1005P0KE51,OiCLR 

2 F0RZZ-0T04 

3 FQRZ*1T063*.READX: PQKE12799*(ZZ#64)+ Z,XJNEXTZ,ZZ 

4 lv»i:qi*o 

3 F0RZ—54272T054272+ 28:POKEZ,0:NEXT 
10 PRINT"CCLS3":G0SUB1200 

20 GOSUB1095 

21 GOSUBIOOO 

22 G0SUB1050 

23 G0SUB1060 

23 IFLV< 4THENF0RZ*1T02Q0-LV450:NEXT 

26 SU*0:GOT01120 

27 SU*15 GOTO1163 
30 END 

1000 PRINT"CCLS3C9CD3C13SPC3CL BLU3 CREV3CG>\3 tOFF3 CG>\3 CCYN3CG<G3* 

1001 PRINT" C 14SPC 3CG<G3C6<M3 C6<G3" 

1002 PRINT“C11SPC3 CL BLU1 IREV3 C G > \ 3 COFF3CG>\3CCYN3CG<G3CREV3CL BLU3CG>\3 C0FF3 
CG>\3CCYN3CG<G3" 

1003 PRINT * 112SPC 3CG<G3CG<M3 C2G<G3CG<M3 CG<G3 " 

1004 PRINT"C9SPC3CL BLU 3 C REV 3 t G > \ 3 COFF 3CG>\3 CCYN3 CG<GHREVI It BLUUG>\3 tOFFU 
G>\3CCYN3CG<G3CREV3CL BLU3CG>\3 tOFF3IG>\3CCYN3CG<GJ" 

1005 PRINT" C10SPC 3CG<G3CG<M3 C2G<G3CG<M3 CG>SPC 3C2G<G3£G<M3CG>SPC3CG<G3 “ 

1006 PRINT"C7SPC 3 C L BLU3 £ REV3 CG> \ 3 C0FF3CG>\3CCYN3tG<G3CREV3CL BLU3CG>\3 C0FF3C 
6 > \ 3 CCYN3 CG<G3 CREV 3 CL BLU3CG>\3 COFF 3 CG>\3CCYN3CG<G3CREV3CL 8LU3£G>\3 £OFF3CG>\3 

1007 PRINT"C8SPC3CG<G3£G<M3 C2G<G3CG<M3 £2G<G3CG<M3 t2G<G3CG<M3 t6<G3" 

1008 PRINT" C5SPC 3 CL BLU 3 CREV3CG>\3 COFF 3 COX 3 tCYN3CG<G3 CREV3 CL BLU3CG>\3 COFF 3£ 
G>\3 CCYN3 CG< G3 CREV 3 CL BLU3C6>\3 COFF3CG>\3CCYN3CG<G3CREV3CL BLU3CG>\3 COFF3CG>\3 
CCYN3CG<G3CREV3CL BLU3CG>\3 COFF3CG>\3CCYN3CG<G3" 

1009 PRINT *l6SPC 3CG<G3CG<M3CG >SPC 3 C 2G<G 3 C G<M3 C G>SPC 3 C2G<G 3 CG<M3 C6>SPC 3 C 2G<G3 CG<M 
3 CG>SPC 3 C 26<G3 CG<M3 CG>SPC 3 CG<G3 " 

1010 PRINT" C4SPC 3 CL BLU3 t REV3 CG> \ 3 COFF 3 CG> \ 3 tCYN3 tG<G3 CREV3 CL BLU3 IG>\3C0FFHG 

>XHCYNHG«3HREvm. BLUHG>M IOFF HG>\ JICYN1 IG<G3 IREVl IL tOFF tG>Y3C 

CYN3 CG<G3 CREV3 CL BLU3CG>\3 COFF 3CG>\3CCYN3CG<G1CREV3 £L BLU3CG>S3 COFF3CG>V3£CYN3 
CG<G3" 

1011 PRINT"C4SPC3CG<G3CG<M3 C2G<G3£G<M3 C2G<G3CG<M3CG>SPC3C2G<G3CG<M3CG>SPC3C2G< 
G3CG<M3 CG>SPC3C2G<GJ CG<M3 CG>SPC3CG<G3" 

1012 PRINT" C4SPC 3CG>L3CG>«3CG>N3 CG>L3C6>8 3 CG>N3 CG>SPC 3 CG>L3 CG>®3 CONI CG>SPC3 CG> 
L3CG>«3CG>N3CG>SPC3CG>L3CG>«3CG>N3 CG>L3CGXI3CG>N3 * 

1015 Q1-0:P0KEV*23,0:P0KEV*29,0 

1020 POKEV+21,PEEK(V*21)0R8:POKEV+21,PEEK(V + 21)0R16 
1040 RETURN 
1050 F0R2«0T015:P0KEV+Z,SG(Z):N£XT:QJ*0 

1055 F0RZ*30T0107:POKESQ*14,AB:POKESO*15,Z:POKEV*1,Z!FQRZ2-1TQ10:NEXTZZ ,2 
1057 POKESO*14,0:POKESO*15,0:RETURN 

1060 PRINT"CH0M3CCD3CWHT3C3SPC3SC0RE!C8SPC3H1GH SCORE:C5SPC3" 

1070 PRINT"CHON3 C4CD3 C19CR3CHANGE TO :CL GRN3 CREV3CG>\3 COFF3CG>\3CCYN3CG<H3" 
1075 PRINT"CHON3 C5CD3 C31CR3CG<H3C6<N3 CG<H3* 

1080 PRINT“CHOM3 C6CD3 C30CR 3 CG>L3£G>«3CG>N3" 

1085 PRINT * C HOM 3 CCD3 C9CR3"CSC:PRINT"CHOM 3 C C D 3 C 26CR 3"|HS"C10CD3" 

1090 RETURN 

1095 F0RZ-0T015:POKEV+Z,SP<Z):NEXT:POKEV+29,i:P0KEV+23,1 

1100 PRINT-CCLSU3CD3C11CR3CREV3CL RED 3 C G> \ 3 C 2SPC 3 C G<*3 COFF 3 CCYN3* CWHT3CG>03CG 
<Y3CG>M3 C G > 0 3 C 2G < Y 3 CG>03 CG< y! COM3 CG< Y 3 CG>P3 CG>03 CG< Y 3 " 

1101 PRINT"C11CR3 CREV3 CL RED3 COFF3C2SPC3CREV3 COFF3 CWHT3C2SPC3CG<H3 CG<N3 CG<H 
3 C 3SPC 3 t G<H 3 CG<N3 C 2SPC 3 C G<N3CG<H3 “ 

1102 PRINT"C1ICR3 CREV3 CL RED3 COFF3C2SPC3CREV3 COFF3 CWHT3C2SPC3CG>L3CG<P3CG>N3 

;sr™;s“ss:ss:ir™..<«.««. .«■. •»<»■ 

3 C3SPC 3 CG<HJ CG>M3C2SPC3CG<N3CG<H3" 

1106 PRINT"C1ICR3 CL RED3CG<*JCREV3C2SPC3COFF 3CG>\3CREV3tG<*3COFF 3CWHT3C2SPC3C6>L 
3 CG<P3 CG>N3 CG>L3C2G<P3 CG<H3 CG<N3C2SPC3tG<N3CG<H3" 

1107 PRINT"C3CD3C15CR3CRED3INSTRUCTIONS" 

1108 PRINT *' C 15CR 3..-PRINT" C CYN 3 GUIDE CYEL3Q*BERT CCYN 3 AROUND THE SCR 

UOf’pRINT’CRED) (USING AJOYSTJCK IN P0RTIZSPCJ2 »t2SPC1tCYNJAND!2SPCJPAINTt2SPC 

1110 PRINT"PYRAMID. BEWARE 0FCYEL3 COILY THE SNAKECCYN3 AND" 

1111 PRINT"THE CYEL3DEATH BALL «... CRED3CONTACT WITH THESE" 

1112 PRINT"MEANSt 2SPC 3CERTAIN!2SPC 3 DEATH .C CYN3" 

1113 PRINT"C2SPC3ALSO BEC2SPC3CAREFUL NOT TO JUMP OFF THE 

1114 PRINT-PYRAMID, EXCEPT TO THE DISCS WHICH WILL- 

1115 PRINT"MAG1CALLYC2SPC 3TELEP0RT YOU BACK TO THE TOP" 

1116 PRINT"OF THEt2SPC3PYRAMID AND THEN!2SPC3DISAPPEAR 

1117 PRINT"C8SPC3CREV3CL GRN3 MOVE JOYSTICK TO START C0FF3* 

1118 WAIT56464,31,31 

1119 RETURN 

1120 J-PEEK < 56464):IF(J AND10)“OTHENPOKEV,PEEK < V >♦16:POKEV +1,PEEK < V + l) ♦ 16 
1125 IF(J AND9)“OTHENPOKEV,PEEK< V) ♦ 16 :POKEV♦l,PEEK< V ♦ 1) -16 
1130 IF(JAND6)—OTHENPOKEV,PEEK<V)-16:POKEV*1,PEEK<V*l)+16 
1135 IF(JAND5)-OTHENPOKEV,PEEK <V)-16:POKEV*1,PEEK <V*I)-16 
1140 QJ-QJ+1:G0SUB2000:G0T02050 

1150 QY-PEEK(V*1):QX—PEEK CV):QY-(QY-27)#5:QX*(8X-8)/S:QQ“QX*8Y*983 
1160 IFPEEK(QQ) 0160THEN1300 
1162 81*8l*1:G0SUB2100:G0T02250 

1165 QC“80*54272:11-PEEK CQC): IFI1<>254ANDSU*1THEN25 _ 



Boin, boing, boing-l'm back! If * 
you thought Commodore Users 
were going to slip through a ^ 
Games Extra without me drop- \ 
ping into the action then you'd ^ 
better forget it. 

I'm Q-bert-and my game in¬ 
volves hopping from square to 
square on a pyramid to change 
the colours-as if you didn't 
know. There are a couple of 
pesky nuisances who attempt to 
stop me going about my busi¬ 
ness - namely a rattle snake and 
a bouncing ball. When these two 
are after you the only way to 
escape is to hop on to the 
spinning disks that flank the 
pyramid. 

The game requires a joystick 
and includes full instructions. 
Boin, boing, boing - hop to it! 

Q-bert has been listed with our 
Easy-Enter technique to make it 
simple for you to enter. Instruc¬ 
tions on how this works can be 
found on page 3 of this 
supplement. 




COMMODORE USER 



















1166 XFI1<>254ANOSU*OTHEN27 

1167 PQKESQ*7,56:POKESO+8,27:FORZ*lT030:NEXT:F0KES0+7,O:POKESO+8,O 
1170 POKEQC-1,13;POKEQC,13:POKEQC*1,13;TC“TC*1:SC“SC♦100:G0SUB1085 
1100 IFTC*21THENTC*0:QJ*0:Ql*0:LV*LV+i:G0T021 

1190 IFSU*1THEN25 

1191 IFSU*0THEN27 

1200 SQ“54272IP0KES0+5,96:POKESO+6,65:POKESO*12,255:POKESO*13,96:POKESO*19,255:P 
0KESG+20,96 

1210 P0KES0*4,33:PQKES0*li,129:P0KESQ+1S,17:P0KES0*24,15 
1230 V*53248lPOKEV+21,255;PQKEV+28,255 

1240 P0KE2040, 200: P0KE2041,202: P0KE2042,203*. P0KE2043,204: P0KE2044,204 

1241 P0KE2045,201:P0KE2046,200:P0KE2047,200 

1245 POKEV+16,192:POKEV+23,1!P0KEV+29,1:P0KEV+37,1;POKEV+38,O:POKEV+44,4 
1250 P0K£V*39,10:POKEV+41,9:POKEV+42,7:POKEV+43,7:POKEV+45,10:POKEV+46,10 
1260 DIMSP(15)IFQRZ“0T015:READA:SP(2)*A:NEXT 
1265 DIMSG (15 > : FORZ“OTO 15: READA *. SG < Z ) *A: NEXT 
1270 RETURN 

1300 FF“0:F0RZ*1TQ20:FF“PEEK<V*30>:IF FF*9THEN1400 

1305 IF FF* 17 THEN 1400 

1306 NEXT 

1310 XB*PEEK<V>-20:YB=PEEK<V*1>-20:PQKEV+2,XB:PGKEV+3,YB:FQRZ=1T0100 
1320 POKESO,169:POKESO*1,72:NEXT:POKESO,O:POKESO*1,O 
1330 PQKEV+2,0:PQKEV*3,150 

1340 FORZ*PEEK < V* 1 > T0254:POKESO*14,2:POKESO*15,255-Z:POKEV♦1,Z:NEXT 
1345 POKESO*14,O:POKESO*15,0:VR“PEEK(V♦30) 

1350 IFPEEK <V + 21) >128THENP0KEV+21,PEEK <V + 21)AND <255-128):Q1“0:G0T022 
1360 IFPEEK <V+21> >64THENP0KEV+21,PEEK < V + 21)AND < 255-64):Ql»0:G0T022 
1370 XFSC>HSTHENHS*SC 

1380 81*0:QJ*0:LV«1:TC*0:FORT*1TO1000:NEXT:G0T020 
1400 IF FF*9THENP0KEV+21,PEEK<V+21)AND<255-8) 

1405 IF FF*17THENPQKEV+21,PEEK < V + 21)AND <255-16) 

1410 POKES/, 136 : POKEV* 1 , 107 

1415 F0RZ*1T020: P0KES/*21, PEEK <V*21 ) - t: F0RZZ*1T05: NEXT: POKES/*21 , PEEK < S/ + 21 ) ♦ 1: NEXT 
1420 S/R*PEEK < S/ + 30) : FF*0: G0T025 

2000 IFLV-2THEN RETURN 

2001 IFQJ<7THEN RETURN 

2005 IFQJ»7THENP0KES/*4, 136! POKEV+5, 107: F0RZ*1T010: POKEV*21, PEEK < S/ + 21) AND <255-4) 
2010 IFQJ*7THENFORZZ*1T010:NEXT:POKEV+21,PEEK <V+21)0R4:NEXT:RETURN 
2015 BD*RND < 1) : IFBD> .'5THENP0KEV + 4, PEEK < S/ + 4 ) *16:POKEV+5,PEEK<V+5) *16:G0T02025 
2020 POKES/*4 , PEEK < S/*4 ) - 16: POKES/*5 , PEEK <V*5)+16 

2025 IFPEEK <V + 5)>190THENQJ*0:FORZ*PE£K <S/*5)T0250:POKEV+5,Z:NEXT 
2030 RETURN 

2050 F0RZ*lT03:FF»PEEK<V+30>:IF FF*5THEN1310 
2060 NEXT:G0T01150 
2100 IFLV*1THENRETURN 
2110 IFQ1<10THENRETURN 

2120 IFQ1*10THEN: POKEV* 10, 136*. POKEV* 11,107 

2130 IFQ1*10THEN:F0R2*1T010:POKEV*21,PEEK <V+21)AND223:F0RZZ*1T05:NEXT 
2140 IFQ1«10THENP0KEV + 21, PEEK < V*21 )0R32*. NEXT » 

2150 SM <0> *PEEK <V) :SM<1)“PEEK<V*1) *. SM < 2) “PEEK < V* 10 > : SM (3) “PEEK < V* 11) 

2160 IFSM <1)<“SM <3)THENPOKEV*11,PEEK < V*11)-16 
2170 IFSM <1)>SM<3)THENPOKEV*It,PEEK<V*11> *16 
2180 IFSM(O)<“SM<2)THENPOKEV*10,PEEK<V+10)-16 
2190 IFSM <0)>SM<2)THENPOKEV*10,PEEK <V*10)*16 
2195 RETURN 

2250 F0RZ*1T03:FF*PEEK<V+30):IF FF-33THEN1310 
2260 NEXT:G0T01165 


DATA 


128,0 

DATAO, 42,0,0, • 0 l7 o 

& # 

,8 BATA138,0,0,0,0, . 

>9 DATAO.0,0,0,0, , 

11 D * TA °1‘. 7 ’ij4!o.17o’, 128,0, 138 

12 BATA170,128.0. 

13 DATA0,2,l28.O,‘ * 

14 BATA10.0,0,10j0j0j 2 i0 

,15 DATA168,0,0, > 

a6 OATAO.O 10.0.0.8.0 io 

U7 DATAO, 160,0^2,0, i^,8 

d18 BATAO.0.1 . , 68 ,0 

019 datao,z.‘ » BUBBLE*** 

020 REM***SPEECH 8Si 85,85 

021 DATA21.85.84,7t7,83,8S,117 
,022 117.93.215. 117 

>023 DATA85.8 . q5 , 2 23,11?* 87 

~~~ DATA93.215, 93 117,87,93 

1 


*°°» ^TAO S ^ 8 f-^. 85 , 8 4,o- 

I ‘°°32 DATAo’o’n’ 0,0 ’°-0 
1 10033 DATAo'i-,' *®»0,o f o' 

I 10034 BATao 'u** °* **2, o 

/ 10040 £eM^ 60 - 0 -*7o;,J’* 60 ’ s ‘ 
1004! Dat ao *“ ISC *** ,42 ' C 
! 10042 OATao ' 0 ' 0 - 0 . 0,0,0 

I 10 043 DATA0 , o , n*°' O * 0 » 0 
/ J 0044 DATAo n ,0,0 *°»0,o 
100 « DArAo’°’°-°-°.0,0 

. 0 . 0 . 
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This is a fairly straightforward game, although we than the submarines, so that if you miss one you can 
rattier Ike the graphics. It illustrates some important catch it provided it is not too deep. If you give chase, 
techniques such as how to control motion with either however, there is a danger that you wM be left on the 
keyboard or joystick, how to make moving objects wrong side of the screen as a submarine escapes, 
reverse direction and how to use the sprite collision You could extend this program by having more than 
register to indicate a hit. one submarine on the screen, by allowing more than 

The submarines are at random depths. There is also a one depth charge at a time to be fired and by devising 
random element in their movement, so that hitting them some means for the submarines to shoot back, 
is not as easy as it looks. The destroyers move 


COMMANDS 

Key hi the program and RUN. 

If you are using a joystick ensure it is connected to 
PORT 1. 

Instructions for using the keyboard are included in the 
code. 


10 REM DESTROYER 
20 REM ********* 

30 REM 

100 POKE 52,48:POKE 56,48:CLR: 

REM RESERVE MEMORY FOR SPRITES 
110 CL$=CHR$(147):REM TO CLEAR SCREEN 
120 POKE 53280,6:REM BLUE BORDER 
130 POKE 53281,14:REM LIGHT BLUE SCREEN 
140 V=53248:REM START OF VIDEO CHIP 
150 PRINT CHR$(144):REM BLACK INK 
160 PRINT CLS:PRINT:PRINT 
170 PRINT TAB(18)"WAIT" 

180 REM************************** 

190 REM SPRITE COLORS 

200 POKE V+39,11:POKE V+40,0: 

POKE V+41,2 

210 REM************************** 

220 POKE V+29,3:REM TWO SPRITES 
EXPANDED IN X DIRECTION 
230 POKE V+23,0:REM NO SPRITES 
EXPANDED IN Y DIRECTION 
240 REM************************** 

250 REM SET SPRITE POINTER 

260 POKE 2042,196 

270 REM************************** 

280 REM GENERATE SPRITE SHAPES 
290 FOR N=0 TO 383 
300 READ K:P0KE 12288+N,K 
310 NEXT 

320 REM************************** 

330 REM SET UP SOUNDS 

340 S=54272:REM START OF SID CHIP 

350 POKE S,255 

360 POKE S+1,10 

370 POKE S+5,72:POKE S+6,0 

380 POKE S+7,25 

390 POKE S+8,30 

400 POKE S+12,12:POKE S+13,0 

410 POKE S+24,15 

420 REM************************** 

430 REM KEYBOARD OR JOYSTICK 

440 PRINT CL$:PRINT:PRINT:PRINT 

450 PRINT TAB(14)CHR$(18)"***********" 

460 PRINT TAB(14)CHR$(18>" DESTROYER " 

470 PRINT TAB(14)CHRK18)"***********" 

480 PRINT:PRINT:PRINT:PRINT 

490 PRINT TAB(7) 

"SELECT CONTROL BY PRESSING:" 

500 PRINT 

510 PRINT TAB(10)CHR$(18) 

" KEY FI "CHR$(146)" - KEYBOARD" 
520 PRINT 

530 PRINT TAB(10)CHR$(18) 

" KEY F3 "CHR$(146)" - JOYSTICK" 


540 GET A$:IF A$="" THEN 540:REM 

NO SPACE BETWEEN INVERTED COMMAS 
550 SL=ASC(A$)-132:IF SL<1 OR SL>2 
THEN 540 

560 IF SL=1 THEN G0SUB 8000 
570 REM************************** 

580 REM SKY 

590 PRINT CHR$(5)CL$ 

600 S$=CHR$(32) 

610 FOR N=0 TO 4:S$=S$+S$+S$:NEXT 
620 S$=MID$(S$,4): 

REM S$ CONTAINS 240 SPACES 
630 PRINT CHR$( 18)CHR'S(145)S$ 

640 REM************************** 

650 REM INITIAL CONDITIONS 

660 POKE V+1,78 

670 XD=150:POKE V,XD 

680 POKE V+16,0:REM X MSB REGISTER 

690 SB=20:HT=0:FR=0:DD=-1 

700 POKE 2040,192 































ENABLE SPRITE 1 


? £ RINT: PRINT 

,T" t t «> < 

’ i F HT> 15 the 

prin 1 3Kh * S( 
PRINT: p RInt 

M e A$:lF A$< 

RF M S p ACE BET ^ 

prtJ LUSh KEy 
PRINT TAB(IO) 

,c N °I HER GAME 

4ke o (Y$)=89 

OKE S+2 4,0 


"KIUS'V-ht 

j'" X pRErr¥ NT:PRINr 

KR tTTV Goon M 


770 IF T>=. 5 THEN POKt ^ 1 , 17 ;.^ •« 
XS=5 

780 60SUB 6000:REM MOVE SUBMARINE 
790 REM************************** 

800 REM PLAY 

810 ON SL GOSUB 3000,4000 nnnn 

820 IF FB=0 AND FR=0 THEN GOSUB 9000 
REM FIRE DEPTH CHARGE 
830 IF FR=1 THEN YC=YC+10:P0KE V+5, 
REM DEPTH CHARGE FALLS 
840 IF DXOO THEN GOSUB 5000: 

REM MOVE DESTROYER 
850 IF FR =i AND YC>235 THEN FR=0: 

POKE V+21 ,PEEK(V+21)~4:REM MISS 
860 IF FR=1 AND PEEKIV+30) AND 2-2 
THEN GOSUB 7000:G0T0 730:REM HI 
870 IF TK40 THEN 800 
880 REM************************** 
890 REM SUBMARINE CONTROL 
900 GOSUB 6000:REM MOVE SUBMARINE 
910 IF FR= 1 AND PEEKCV+30) AND 8=8 
THEN GOSUB 7000:GOTO 730:REM H! 
920 IF XS=0 OR XS=320 THEN POKE V+, 

PEEK(V+21)-2:SB=SB-1:G0T0 730 

930 GOTO 800 

9A0 REM»************************* 
950 REM FINISH 

960 POKE V+21,0:P0KE S+4,0:P0KE S 
970 PRINT CHR$(144) 

980 PRINT CL$:PRINT:PRINT 
990 PRINT TAB(15)"GAME OVER" 


'•’REM 

COMMAS 


sprite 

data 


35 =; 

'020 da S'n'n'° A 

030 DATA 0 

040 data i'iah' 0 ' 0 
350 ** 

160 MTA 

- -« 

'0 PtMx ******** 

u REM******, 

0 rpm ******* 

n REM DESTROYER ? 

) data o'o'n' 0 ' 0 ' 0 

> oat, 2;?'o'o'?'°- 

1 s vvi-t 

data 255 ?ct -> 

" 5 'f 5 ,254,1 
REM*****;fff'° 

’em*******,;;***** 

SUBNAR 1n ;T* 

ATA 0 Aln'°' 0 '0, 
'TA 0'lT2°n°n 6Yf ' 0 '' 
>TA G p'n '?' 112 ' 1 
TA 127 Ua'1' 25SA 

A S’l<7'n !5 ' 177 

..... 

suemR,*„”"*****• 


IOO PROGRAMS 
FORTH! 
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2330 DATA 0,2,0,0,2,0,0,2,0 
2340 DATA 0,14,0,0,14,0,0,14,0 
2350 DATA 0,14,0,0,255,192,0,255,192 
2360 DATA 239,255,254,239,255,254,255, 
255,255 

2370 DATA 255,255,255,239,255,254,239, 
255,254,0 

2380 REM************************* 

2390 REM************************* 

2400 REM DEPTH CHARGE 

2410 DATA 0,0,0,0,0,0,0,0,0 

2420 DATA 0,0,0,0,0,0,0,0,0 

2430 DATA 0,0,0,0,0,0,0,0,0 

2440 DATA 0,0,0,0,0,0,0,0,0 

2450 DATA 0,0,0,0,0,0,0,0,0 

2460 DATA 0,126,0,0,126,0,0,255,0 

2470 DATA 0,255,0,0,126,0,0,126,0,0 

2480 REM************************* 

2490 REM************************* 

2500 REM EXPLOSION 

2510 DATA 240,56,8,240,60,24,48,62,120 
2520 DATA0,0,120,51,18,120,49,146,0 
2530 DATA 1,216,192,1,249,131,31,255,7 
2540 DATA 15,254,7,7,255,227,97,255,128 
2550 DATA 97,191,0,103,63,131,6,89,131 
2560 DATA 0,88,192,0,152,96,94,152,33 
2570 DATA 194,17,147,224,17,131,224,0,0, 
0 

2580 REM************************* 

2590 REM************************* 

2900 REM 

2910 REM *************** 

2920 REM 
2930 REM 
2940 REM 
2950 REM 
2960 REM 

2970 REM************************* 

2980 REM************************* 

3000 REM KEYBOARD 
3010 DX=0:FB=1 
3020 T=PEEK(197) 

3030 IF T=23 THEN DX=16 
3040 IF T=12 THEN DX=-16 
3050 IF T=3 THEN FB=0 
3060 RETURN 

3070 REM************************* 

3080 REM************************* 

4000 REM JOYSTICK 
4010 DX=0:DY=0 
4020 T=PEEK(56321) 

4030 JS=15-(T AND 15) 

4040 IF JS>7 THEN DX=16 
4050 IF JS<7 AND JS>3 THEN DX=-16 
4060 REM FIRE BUTTON 
4070 FB=T AND 16:REM FIRE BUTTON 
4080 RETURN 

4090 REM************************* 

4100 REM************************* 

5000 REM MOVE DESTROYER 
5010 IF SGN(DX)<>SGN(DD) THEN DD=-DD: 
DX=0 

5020 IF DD=-1 THEN POKE 2040,192 
5030 IF DD=1 THEN POKE 2040,193 
5040 XD=XD+DX 
5050 IF XD<40 THEN XD=40 
5060 IF XD>280 THEN XD=280 
5070 K=XD 
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5080 IF K<256 THEN 

POKE V+16,PEEK(V+16) AND 254 
5090 IF K>255 THEN K=K-255: 

POKE V+16,PEEK(V+16) OR 1 
5100 POKE V,K 
5110 RETURN 

5120 REM************************* 

5130 REM************************* 

6000 REM MOVE SUBMARINE 
6010 XS=XS+DS*(10*RND(1)+6) 

6020 IF XSCO THEN XS=0 
6030 IF XS>320 THEN XS=320 
6040 K=XS 

6050 IF K<256 THEN 

POKE V+16,PEEK(V+16) AND 253 
6060 IF K>255 THEN K=K-255: 

POKE V+16,PEEK(V+16) OR 2 
6070 POKE V+2,K 

6080 POKE V+21,PEEK(V+21) OR 2 
6090 RETURN 

6100 REM************************* 

6110 REM************************* 

7000 REM HIT 

7010 HT=HT+1:SB=SB-1:FR=0 
7020 POKE S+11,0:P0KE S+11,129 
7030 POKE 2041,197:P0KE V+40,2 
7040 POKE V+21,PEEK(V+21)-4 
7050 FOR DE=0 TO 300:NEXT 
7060 POKE V+21,1:P0KE V+40,0 
7070 RETURN 

7080 REM************************* 

7090 REM************************* 

8000 REM KEY INSTRUCTIONS 

8010 PRINT CL$:PRINT:PRINT:PRINT:PRINT 

8020 PRINT TAB(5)CHR$(18)" KEY 2 " 

CHR$(146)" - MOVES DESTROYER LEFT" 
8030 PRINT 

8040 PRINT TAB(5)CHR$(18)" KEY X " 

CHR$(146)" - MOVES DESTROYER RIGHT 
8050 PRINT 

8060 PRINT TAB(5)CHR$(18)" KEY F7 " 

CHR$(146)" - FIRES DEPTH CHARGE" 
8070 PRINT:PRINT:PRINT:PRINT 
8080 PRINT TAB(6)CHR$(18) 

" PRESS ANY KEY TO CONTINUE " 

8090 GET A$:IF A$="" THEN 8090:REM 

NO SPACE BETWEEN INVERTED COMMAS 
8100 RETURN 

8110 REM************************* 

8120 REM************************* 

9000 REM FIRE DEPTH CHARGE 
9010 DC=-DD:FR=1 

9020 T=XD-10:IF DC=1 THEN T=T+40 
9030 POKE S+4,0:POKE S+4,129 
9040 FOR N=0 TO 16 STEP 2 
9050 XC=T+DC*N 
9060 YC=70-10*SIN(N* /16) 

9070 POKE V+5,YC 
9080 K=XC 

9090 IF K<256 THEN 

POKE V+16,PEEK(V+16) AND 251 
9100 IF K>255 THEN K=K-255: 

POKE V+16,PEEK(V+16) OR 4 
9110 POKE V+4,K 

9120 POKE V+21,PEEK(V+21) OR 4 
9130 NEXT 
9140 RETURN 

9150 REM************************* 

9160 REM************************* 





















By Brian Sawyer 


The object of EVEREST is to climb to the top of 
Mt Everest before Mother Nature kills you. As you start 
the climb, you'll see a white and grey mountain. The 
rocks (shown as darker patches) are easier to climb and 
should be followed as much as possible. You climb by 
using the joystick to make your way up die face of the 
peak. Now and then an avalanche will come roaring 
down the mountain, or a fierce snowstorm will 
threaten your climb. Both storms and avalanches will 
knock you down the mountain a little, but avalanches 
tend to knock the snow away and leave more rocks 
exposed. Snowstorms, however, just add to your 


problems by dropping more snow in your path. 

Since you are a wealthy mountain climber, you tan 
have extra food airlifted to you as many as three times 
during your climb. To call hi a plane, press the joystick 
button. An airplane will fly across the top of the screen 
and drop supplies, your energy level is increased, and 
you can resume your climb. Remember, though, that it 
will take some energy to climb over to die food. 

The games ends when you reach the top or when you 
finally succumb to exhaustion while clinging to those 
windswept rocks. Have fun. 


PG$="^E^V^E^R^E^S^T^" :AU $ = "BY^BRIAN^SAWYER " : JF=1 
REM EVEREST — BY BRIAN SAWYER 


REM COPYRIGHT (C) 1983 THE CODE WORKS 
REM BOX 6905, SANTA BARBARA, CA 93160 


REM AS OF 8/11/83 GF 
GOTO 62000 

CL=55296:V=53248:DIM JD(15):FOR 1=0 TO 15:READ JD(I):NEXT 
DATA 0,0,0,0,0,3,9,6,0,1,7,4,0,2,8,5 

DEF FNJ(X)=JD(PEEK(JS+X) AND 15):DEF FNB(X)=(PEEK(JS+X) AND 
16) =0 

DIM V(10):FOR N=0 TO 9 STEP 2:V(N)=204:V(N+1)=205:NEXT: 
P(0)=200:P(1)=2Q3 

POKE 53280,3:POKE 53281,0:POKE V+40,7:FOR N=1 TO 6:READ A(N): 
NEXT 

DATA 0,11,12,15,1,1 

FOR BS=200*64 TO 208*64 STEP 64 

FOR N=0 TO 62:POKE BS+N,0:NEXT 

READ A:FOR N=0 TO A-l:READ B:POKE N+BS,B:NEXT:NEXT 

DIM C(15):C(0)=1:C(11)=2:C(12)=3:C(15)=4:C(1)=5 

DIM K(5):K(1)=1:K(2)=1:K(3)=1:K(4)=11:K(5)=11 

POKE 2042,205:POKE 2040,201:POKE 2041,200:POKE 2043,207: 

POKE 53277,5 

SR=100:POKE 2044,208:GOSUB 1000:GOSUB 2238 

X=113:Y=238:DR=3:POKE V+21,31:GOSUB 2239 

VL=5 42 96:NO=54272:WV=5 4276:DE=54277 :POKE VL,15:SU = 54278: 

POKE DE+7,129 

POKE NO+7,0:POKE NO+8,0:POKE SU+7,255:POKE WV,129:POKE WV+7,129 

GOSUB 2400:GOSUB 2000:IF SR>0 AND Y>73 THEN 170 

IF Y<74 THEN 4000 

GOTO 4100 

REM DRAW MTN 

PRINT M (clr)":GOSUB 1300:GOSUB 1600:XN=1:Pl=28-4*WD 
FOR Y=1 TO 21:FOR X=1 TO XN:P=Y*WD+X-P1:N=INT(RND(1)*5)+1 
IF RND(1)>.7 THEN N=5-INT((Y-l)/4) 

POKE P+CRT,160:POKE P+CL,A(N):NEXT X 
XN=XN+2:P1=P1+1:IF Y>13 THEN P1=P1-1:XN=XN-1 
NEXT Y:POKE CL+13+4*WD,1 
PRINT "(home 22°down 31°right)"; 

PRINT "^{down left>(down 2°lef t) (home) " 

RETURN 

POKE P,4:IF NOT FNB(0) THEN 4230 
PRINT " 

PRINT ” 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT ” 

PRINT " 

PRINT " 

RETURN 
REM 
PRINT 
PRINT 
PRINT 
PRINT 


168 

170 

175 

180 

1000 

1010 

1020 

1025 

1030 

1035 

1040 

1050 

1060 

1090 

1095 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1340 

1345 

1350 

1355 

1360 

1370 

1400 

1405 

1410 

1415 

1425 


(grn 31°space NM)" 
(30°space NK^CM)" 
(29°space NMNMNMK(NM) 


CQMMQOOWE USSR 


a V 






























1430 PRINT "{27°space N}^(NMNMN}" 

1435 PRINT "{29°space NK{N)_{M>" 

1440 PRINT "(28°space NK(N 4°space M>" 

1445 PRINT "{29°space N 6°space M>" 

1450 PRINT "(37°space M} n 
1455 PRINT "(38°space M>" 

1460 PRINT "(26°space)" 

1500 RETURN 

1600 PRINT "{home 16°down rvs-on wht £ up £ up £ up £ up £ up £ up 
£ up £ up £ up £ up £ lip £ up £>"? 

1610 PRINT "(right * down ^ down ^ down * down down * down * down 

* down * down * down * rvs-on down * down * down * down * down 

* down * home)":RETURN 
2000 REM BLIZZARD 

2005 BY=INT(RND(10)*135)+95:BX=216-BY:D=3:IF RND(1)>.5 THEN D=-3: 
BX=BY+26 

2010 E=RND(1)*5-1:B=CL+BX/8+INT(BY/8)*WD-241 
2110 BY=BY+E:BX=BX+D:POKE V+39,6+8*(BX AND 1) 

2115 POKE B,1 

2120 POKE 2040,201+RND(1)*2:POKE V,BX AND 255:POKE V+l,BY:GOSUB 2200 
2125 IF NOT (BY>60 AND BY<230 AND BX>24 AND BX<255) THEN 2140 
2130 IF SR AND Y>72 AND RND(1)>.09 THEN GOTO 2010 
2140 POKE V+l,0:RETURN 

2200 REM JOYSTICK 

2201 GET Q$ 

2202 IF Q$="Q" THEN GOSUB 4300:GOTO 4210 

2205 POKE V+2,X:POKE V+3,Y:Z=PEEK(53278):IF Z AND 2 THEN GOSUB 2700 

2206 IF NOT PEEK(53279) AND 2 THEN GOSUB 2800 

2207 IF FNB(0) THEN GOSUB 2600 

2210 N=FNJ(0):IF N=5 AND SR>.9 THEN RETURN 

2215 POKE NO+8,SR+3:IF N=6 AND X<247 THEN X=X+8:GOTO 2234 

2220 IF N=4 AND X>9 THEN X=X-8:GOTO 2234 

2230 IF N= 8 THEN Y=Y-l:GOTO 2234 

2232 IF N=2 AND Y<238 THEN Y=Y+2 

2234 A=C(PEEK(CL+X/8+INT((Y+3)/8)*WD-241) AND 15):SR=SR-A*.45 

2237 POKE 2041, P (R AND 1):R=R+1 

2238 IF SR<1 THEN SR=0 

2239 PRINT "(home down red)" TAB (5) "STRENGTH:" INT(SR) "(leftK" 

2240 PRINT "(home down red}" TAB(22) "PLANES^LEFT:" INT(DR) "(left) 

:POKE NO+8,0 .-RETURN 
2400 REM MAKE AVAL 

2410 AY=INT(RND(10)*100):AX=114+AY*SGN(RND(1)-.5):AY=AY+90 
2420 POKE V+4 ,AX:POKE V+5,AY 

2425 POKE NO,255:POKE NO+l,37:POKE WV,129:POKE DE,4+8+128+64: 

POKE SU,1 

2430 KL=CL+AX/8+INT(AY/8)*WD-241:AZ=AY+RND(1)*(224-AY) 

2510 FOR AH=AY TO AZ STEP 4:POKE V+5,AH:POKE 2042,V(AH AND 7) 

2520 POKE KL,A(RND(1)*3):POKE KL+1,A(RND(1)*3):IF AH AND 4 THEN 
KL=KL+WD 

2530 GOSUB 2200:IF KL>CL+40*24 THEN STOP 
2535 IF Y<72 OR SR=0 THEN RETURN 

2540 NEXT:POKE V+5,0:POKE V+4,0:POKE WV,0:POKE SU,0:RETURN 

2600 REM INIT PLANE DROP 

2601 IF DR=0 THEN RETURN 

2605 DR=DR-1:POKE V+9,0:A=INT(RND(10)*70)+100:POKE WV+7,129 
2610 B=65:POKE V+7,50:FOR N=255 TO 0 STEP -l:POKE V+6,N: 

POKE NO+8,N/10 

2615 IF N=A THEN POKE V+8,A:GOTO 2620 

2616 NEXT 

2620 POKE WV+7,17:FOR N=A TO 0 STEP -l:POKE V+9,B:B=B+.5:POKE V+6,N: 

POKE NO+8,N 
2622 NEXT 

2625 B=B+1:POKE V+9,B 

2630 IF (B<Y-22) OR (PEEK(53279) AND 16=0) THEN 2625 
2640 POKE WV+7,129:POKE 2044,208:GOSUR 2240:RETURN 
2700 REM 

2704 IF (Z AND 16)=0 OR (PEEK(V+9)=0) THEN 2708 

2705 IF Z<>18 THEN RETURN 

2706 POKE V+9,0:SR=SR+50:IF SR>100 THEN SR=100 
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2707 GOSUB 223 9 :C=PEEK (5327 8):RETURN 

2708 IF TW+130>TI THEN RETURN 


2710 IF Y<210 THEN FOR Y=Y TO Y+12:POKE NO+8,255-Y:POKE V+2,X: 

POKE V+3,Y:NEXT 

2711 POKE NO+8/0:TW=TI:RETURN 

2800 FOR Z=Y TO 255:POKE V+3,Z:IF PEEK(53279) AND 2 THEN Y=Z:RETURN 
2810 NEXT:RETURN 
3200 REM DELAY 

3205 STOP:FOR H=1 TO 40:NEXT:RETURN 
4000 REM TOP OF MOUNTAIN 
4005 FOR N=1 TO 1000:NEXT 

4010 GOSUB 4300:PRINT ”{clr 2°down 6°space) 

YOU„CONQUERED„MT.»EVEREST!":WN=WN+1 
4020 GOTO 4200 
4100 REM YOU LOSE 

4110 GOSUB 4300:PRINT "{clt 2°down 11“spaceJOUT^OF.ENERGY!" 

4120 PRINT "(down)„„YOU«FAILED^TO^CONQUER^MT...EVEREST!" 

4200 PRINT "(down)":IF AS THEN PRINT “YOU‘VE„SUCCEEDED,.IN“ WN 
“OUT..OF" AS “CLIMBS" 

4205 GOSUB 9100:IF YN THEN 140 
4210 POKE VIC+21,0:PRINT “{clr)":END 
4300 REM TURN EVERYTHING OFF 

4310 POKE V+9,0:POKE VL,0:POKE V+l f 0:POKE V+3,0:POKE V+5,0:RETURN 
9100 NO=0 : PRINT "{wht 3 “down! „,.PLAY xAGAIN?,. (cynl YES „NO{up} " 

9110 TM=0:SW=1 

911.5 PRINT " {wht} ....PLAY..AGAIN?,. {cynlYES„NO(up} 11 
9120 IF TICTM THEN 9150 

9130 PRINT TAB(14+NO*4);MID$("{wht cyn}",SW,l); 

MID$("YESNO{shift“Space)",3*NO+l,3);"{up}“ 

9140 SW=3-SW:TM=TI+15 

9150 JD=PEEK(JS) AND 31:JB=(JD<16):JD=JD AND 15 
9160 IF JB AND JD=15 THEN YN=(NO=0):RETURN 
9170 IF (JD AND 8)=0 AND NO=0 THEN NO=l:GOTO 9110 
9180 IF (JD AND 4>=0 AND NO=l THEN NO=0:GOTO 9110 
9190 GOTO 9120 

50000 DATA 39,0,0,57,0,0,59,0,0,51,0,3,255,0,3,127,0,3,120,0,3,120,0, 
2,124,0,0 

50001 DATA 110,0,0,102,0,0,102,0,0,102,0,0,96 

50002 DATA 27,1,8,128,4,65,16,34,148,164,136,68,82,74,41,73,146,68, 
160,4,146 

50003 DATA 138,81,41,80,1,16,128 

50004 DATA 30,0,198,64,25,49,140,162,16,23.4,154,99,144,9,210,99,196, 
89,156,10 

50005 DATA 162,36,177,3,103,50,201,12,0,204,192 

50006 DATA 36,0,0,60,0,3,60,0,1,152,0,1,254,0,0,255,0,0,123,0,0,251, 
0,1,249,0,1 


50007 DATA 152,0,3,152,0,0,24,0,0,24 

50008 DATA 50,37,155,0,109,155,0,109,155,0,109,155,0,108,155,0,104, 
59,0,64,2,0 

50009 DATA 13,162,0,19,88,0,219,210,0,134,205,0,221,168,128,215,189, 
0,46,212 

50010 DATA 128,118,141,0,52,165,0,19,64,53 

50011 DATA 108,155,0,109,155,0,109,155,0,109,155,0,109,155,0,109,155, 
0,105,27,0 

50012 DATA 96,19,0,77,99,0,26,246,0,43,220,0,95,106,0,126,245,128,59, 
239,0,110 


50013 DATA 183,0,127,190,0,58,245,0,22,180 

50014 DATA 61,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0,0 

50015 DATA 0,0,0,254,0,0,254,0,0,254,0,0,254,0,0,12,0,0,12,0,0,12,0, 

0 , 12 , 0 , 0,12 

50016 DATA 57,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0,6 

50017 DATA 0,0,14,0,0,30,31,255,254,79,255,252,255,255,253,127,127, 
142,0,63,192 

50018 DATA 0,15,240 


50019 DATA 28,30,0,0,127,0,0,255,128,0,255,128,0,201,128,0,73,0,0,42, 
0,0,28,0,0 

50020 DATA 20,0,0,28 . 

50021 DATA 7,248,0,0,216,0,0,248 

50022 DATA 0 ^ 
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60000 IN?=" /> ' l :ZT=TI :ZC=2:ZD$=CHR$ (20) 

60010 GET Z $: IF Z$<>"" THEN 60070 

60020 IF ZT<=TI THEN PRINT MID$("«{+}",ZC,1)(left):ZC=3-ZC: 
ZT=TI+15 

60030 GOTO 60010 

60070 Z=ASC(Z$) :ZL=LEN(IN$) :IF (Z AND 127X32 THEN PRINT "«{left)"j: 
GOTO 60110 

60090 IF ZL>QI THEN 60010 
60100 IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

60110 IF Z=13 THEN IN$=MID$(IN?,2):PRINT CRf;:RETURN 

60120 IF Z=20 AND ZL>1 THEN IN$=LEFT$<IN$,ZL-1):PRINT "{left}";: 

GOTO 60010 

60130 IF Z=141 THEN Z$=CHR$(-20*<ZL>1>):FOR Z=2 TO ZL:PRINT Z$;:NEXT: 

GOTO 60000 
60140 GOTO 60010 

61000 CRT=1024:VIC=53248:WD=40:CR$=CHR$(13):SID=54272:JS=56320: 
CM=55296 





Everest is published by 
permission of Osborne/ 
McGraw Hill and taken 
from the book Commodore 
64 Fun and Games £10.75. 


61010 QL=214:QI=254:RETURN 

62000 GOSUB 61000:POKE VIC+32,0:POKE VIC+33,0:LN=LEN(PG$): 

TB=(40-LN)/2 

62010 PRINT " (cl r 4°down yel rvs-on>" TAB(TB)LEFTS ("{21°space} ",LN) 
62020 PRINT "{rvs-on}" TAB (TB) PG $: PRINT "{rvs-on}" 

TAB(TB) LEFT $("{21°space }" ,LN) 

62030 PRINT n {2°down>" TAB((40-LEN(AU$))/2)AU$ 

62040 MS$ = ”HIT /s RETURN^TO /k BEGIN" : IF JF THEN 
MS$="HIT^JOYSTICK^BUTTON„TO«BEGIN" 

62050 TB=((40-LEN(MS$))/2) 

62060 PRINT "{4°down cyn>" TAB(TB)MS$:PRINT "{7°down cyn 9°space> 

(C)^1983 ^THE^CODE^WORKS" 

62070 GET IN$:IF IN$<^ ,,M THEN 62120 
62080 IF (PEEK(JS) AND 16) =0 THEN 62120 

62090 PRINT "{home 14°down}" TAB(TB)LEFT$("{pur cyn)",K+l)LEFT$(MS$ f 
Q) 

62100 Q=Q+1:IF Q>LEN(MS$) THEN Q=0:K=1-K 
62110 GOTO 62070 

62120 CLRrPRINT "(clr wht>":GOSUB 61000:GOTO 100 
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By Alistair Cook 


Count Dracula is having an off day. He fancies a few pints of Mood but 
just can't bring himself to go out and sink his fangs into any of the local 
virgins. 

Anyway, why should he bother, when he only recently bought 
several gallons from a crooked hospital porter. Yes folks, the drinks at 
home boom is catching on with vampires as well as with everybody 
else. 

The cups of blood are dotted at random around the screen. You must 
get Dracula around die screen to collecting the cups of blood as you go. 

When you have collected die required number of cups our ghoulish 
hero can retire to his coffin-bed. 

Determined to stop Dracula guzzlng the blood are several stakes 
which crop up aN over the screen. If you should touch one of these 
stakes then it's curtains for the Count. 

To move Dracula up press key "W", down "X", left *’A", and right 
"D". Dracula will continue to move in the direction of the key just 
pressed until another key is pressed, or key "S" will make Mm stand 
stM. 

Dracula's Nightmare has been listed with our Easy-Enter technique. 
Instructions on how this works can be found on page 3. 


TYPING INSTRUCTIONS 

1 / Type in and SAVE part one at the start of a 
blank cassette. Do not RUN, and do not 
rewind the tape. 

2/ Type in and SAVE part two on the same 
tape and side, immediately after part one. 
3/ Rewind the tape and LOAD and run the 
first part in the normal way part two will 
LOAD and RUN automatically. 

4/ Because of the way part two loads, disc 
users will have to change line 62 to 62 
LOAD "DRAC2",8 (assuming you saved 
part two as "DRAC2"), and delete lines 64 
and 66. 


2 PRINTCHR*<8)5:P0KE36879,8 

4 PRINT-C CLS 3CYEL3 CCD 3CCR][G<A][18G>*3CG<S3 H :FORI = 1T019:PRINT"[CR3CG>-3 C18G>SPC3 
C G >- 3“:NEXT 

6 PRINT-CCR]CG<Z3C18G>*3CG<X] " 

8 PRINT"CHOM3 C3CD3CGRN3C8CR3C9O + 3CCD3C10CL3CO + 3CRED 3DRACULAtGRN3C G > + 3 C CD 3 C10CL 

3 C9G>+ 3" 

10 PRINT"CHOM3[11CD 3 C6CR3 tGRN3 C9G>+ 3[CD 3 C8CL3 CG>+3 CRED 3DRACULACGRN3 [G> + 3 CCD3 C8CL 
3 C9G>+ 3" 

12 PRINT"CH0M3CCYN3C15CD3C5CR3PRESS ANY KEYC2CD3C1OCL3 TO LOAD" 

13 PRINT"CH0M3C19CD3C2CR3CYEL3DRACULAS NIGHTMARE" 

14 A=1:AA*="[HOM 3 C 8CD 3 C 2CR 3[WHT 3":A*= 

16 A*=A*+ 

18 A*=A*+ 

20 A*=A*+ 

22 A*=A*+ 

24 PRINTAA*JMID*<A*,A 
26 GETZ*:IFZ*< 

28 A=A+l: 

30 G0T024 

40 PRINT"[CLS3[YEL3CCD3CCR3[G<A3C18G>*3CG<S3":F0RI=1T019:PRINT"CCR3IG>-3[18G>SPC 
3 C G >- 3":NEXT 

42 PRINT"CCR3[G<Z3 C18G>*3 CG<X3" 

44 Z*="C HOM 3CGRN3 C3CD3C 3CR 3 KEYS:-":G0SUB100:Z*="C HOM 3C6CD3 C1 ICR 3 CWHT 3W":G0SUB100 
46 Z*="CH0M3C8CD3C9CR3CWHT3A S D":G0SUB100 
48 Z*="C HOM 3C10CD3 C1 ICR 3C WHT 3 X":G0SUB100 

50 Z*="C HOM 3C YEL 3C13CD3 C3CR3W-UPC5CR3X-DOWN":G0SUB100 

51 Z*="C HOM 3[15CD3 C3CR3A-LEFTC3CR3D-RIGHT":G0SUB100 

52 Z*="[ HOM 3C17CD3C 8CR 3 S-HOLD":G0SUB100 

58 P0KE36878,0:P0KE36876,0:FORI=1T05000:NEXT 
60 PRINT"CCLS3CBLK3"5 

62 P0KE631,76:P0KE632,ill:P0KE633,13 
64 P0KE634,82:P0KE635,85:P0KE636,78 
66 P0KE637,13:P0KE198,7:NEW 

100 F0RF = 1T0LEN <Z*> :P0KE36876,ASC(MID*(Z*,F,1) )+90:F0RG=0T01:P0KE36878,G*3 
102 PRINTLEFT*("C HOM 3C21CD3",G#3 + 2) JLEFT*(Z*,F) 

104 NEXTG,F:RETURN 
0 P0KE36869,255 

1 C=0:B=0:U0=36878:S2=36875:S3=36876:34 

2 PRINTCHR*(8) :INPUT"ICLS 3tWHT 3 CCD3[REV 

3 M=X:PRINT"CCLS3" 

4 PRINT " C HOM 3 C REV 3 C WHT 3SCORE " ; SC \ PRINT " C HOM3 C YEL 3 C REV 3 C 9CR3CUPS " S C • 

C REV 3 C17CR3MEN"}M 


C22SPC3" 

YOU TAKE THE PLACE OF THE COUNT AND YOU 
WHEN YOU FANCY SOME NICE CUPS OF BLOOD 
TO THE KITCHEN AND FIND STRANGE THINGS 
GET 15 CUPS BEFORE YOU CAN GO TO BED. i 
18):F0RI=0T0150:NEXT 
THEN40 
IFA>240THENA=1:G0T024 


=0:HI=0:P0KE36879,8 
” JX:IFX<10RX>5THEN2 
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6 F0RA=7702T07723:POKEA+CO,6:POKEA,0:P0KEA+C0+462,6:POKEA+462,0:NEXT 

8 F0RA=7771T07786:POKEA+CO,6:POKEA,O:P0KEA+C0+330,6:P0KEA+330,0:NEXT 

10 F0RA=7840T07849:POKEA+CO,6:POKEA,0:POKEA+CO+198,6:POKEA+198,0:NEXT 

12 F0RA=7724T08142STEP22:POKEA+CO,6:POKEA,0:P0KEA+C0+21,6:POKEA+21,0:NEXT 

14 F0RA=7793T08079STEP22:POKEA+CO,6:POKEA,0:POKEA+CO+15,6:POKEA+15,0:NEXT 

16 FORA=7862T08016STEP2 2:POKEA+CO,6:POKEA,0:P0KEA+C0+9,6:POKEA+9,0:NEXT 

18 F0RA=7774T07775:POKEA,32:NEXT 

20 F0RA=8112T08113:POKEA,32:NEXT 

22 F0RA=7994T08016STEP22:POKEA,32:NEXT 

24 F0RA=7871T07893STEP22:POKEA,32:NEXT 

40 J=7703+INT(RND<1)*459>+1 

42 IFPEEK(J)=0THEN40 

44 IFPEEK <J)=1THEN40 

46 IFPEEK(J)=2THEN40 

48 IFPEEK(J)=3THEN40 

50 POKEJ+CO,1:POKEJ,1 

62 I=7703+INT(RND(1)*459)+1 

64 IFPEEK(I)=0THEN62 

66 IFPEEK<I)=1THEN62 

68 IFPEEK(I)=2THEN62 

70 IFPEEK(I)=3THEN62 

72 POKEI+C0,5:P0KEI,3 

99 A=7932 

100 POKEA + CO, 7*. POKEA, 2*. GETA* 

102 IFA*="W"THENB=1 

104 I FA*="X"THENB=2 
106 IFA*="A"THENB=3 
108 IFA*=“D“THENB=4 

110 IFA*="S“THENB=5 

111 IFA*="I"THENCLR:FOR1=1T03000:NEXT:RUN 

112 IFB=lTHENA=A-22:POKEA+22,32 
114 IFB=2THENA=A+22:POKEA-22,32 
116 IFB=3THENA=A-1:POKEA+1,32 

118 IFB=4THENA=A+1:POKEA-1,32 

119 IFB=5THENA=A 

120 IFPEEK(A)=OANDB=1THENA=A+22:B=2:G0SUB150 
122 IFPEEK(A)=0ANDB=2THENA=A-22:B=1:G0SUB150 
124 IFPEEK(A)=0ANDB=3THENA=A+1:B=4:G0SUB150 
126 IFPEEK(A)=0ANDB=4THENA=A-1:B=3:G0SUB150 
128 IFPEEK(A)=1THENGOTO170 

130 IFPEEK(A)=3THENG0T0160 
140 G0T0100 

150 POKEUO,8:P0KES3,220:FORI=1T040:NEXT:P0KES3,O:POKEVO,0:RETURN 
160 POKEVO,15:F0RI=230T0200STEP-.l:P0KES3,I:NEXT:POKEVO,0:P0KES3,0 
162 M=M-1:PRINT"C HOM3C WHT 3 C REV 3 C17CR3MEN"J M; 

164 IFM=0THEN200 
166 G0T062 

170 sc=sc+5:C=C + 1 :print-chomicrev 3 c yelic9criCUPS”; c;:PRINT- chomicrev]score-; sc; 
172 POKEVO,15:F0RI=127T0255STEP1:POKES2,I:NEXT:POKEVO,0:P0KES2,0:POKEJ,32 
174 IFC=15THEN260 
176 G0T040 

200 POKEA+CO,1:POKEA,4 

202 P0KES4,220:F0RI=15T00STEP-.01:POKEVO,I:NEXT:POKEVO,0:P0KES4,0 

204 P0KE36869,240:PRINT”CCLS3C2CDICGRN]CREVILG>\I CG<*]CCR]CG>\] CG<*3[CR]C2SPC] 
CG<*3CCR3C2SPC3CG<*3CCR3 C CR 3 - 

206 PRINT"CRED3CREV3 C3CR3 [CR 3 C CR 3 CCR3 [CR 3 CCR3 [CR 3 C CR 3 " 

208 PRINT"CCYN3CG<*3CREV3 CG<*3CCR3 CCR3 [CR3[2SPC3[OFF 3[G>\3[CR3CREV3t2SPC3[OFF 
3[G >\3 C CR 3 C REV 3 t 3SPC3" 

210 PRINT"CPUR3C2SPC3[REV] [CR 3 [CR 3 [CR 3 [OFF 3[G<*3[REV 3[G<*3[CR3 [OFF 3[G<*3[RE 
V3[G<*3[2CR 3 "" 

212 PRINT"[GRN3[G<*3[REV3 [OFF 3[G>\3[CR3[G<* 3[REV 3 [OFF 3[G>\3[CR3[REV 3 [CR 3 [CR 3 
[CR 3 [2CR 3 [CR3 [CD 3[CL 3[OFF 3[RED 3[G>\3" 

214 PRINT"[YEL3[2CD3[4CR3YOU ARE DEAD[CD 3[12CL3[PUR 3[12G<Y3" 

215 IFC > 10RC< 1THENPRINT " [ CYN 3 [ CD 3 [ 3CR 3 YOU GOT "; C CUPS " 

216 IFC=1THENPRINT"[CD3[3CR3[GRN3YOU GOT ONE CUP" 

217 PRINT"[2CD 3[YEL 3[3CR 3PRESS SPACE BAR" 

219 IFSC >HITHENHI=SC 

220 GETA*:IFA*<>" "THEN220 

221 P0KE36869,255:PRINT"[CLS3[REV][CD3[CR3[WHT3HI-SCORE =";HI 

223 POKEVO,15:F0RV=1T020:READA:READJ:P0KES2,A:P0KES3,A 

224 FORI=OTOJ:NEXTI:P0KES3,0:P0KES2,0:NEXTV 

225 DATA197,400,197,200,212,800 

226 DATA197,400,212,200,221,800 
228 DATA197,400,212,200,221,600 
230 DATA197,400,212,200,221,600 
232 DATA197,400,212,200,221,800 
234 DATA212,400,221,200,226,700 
236 DATA221,600,212,600,197,800 
238 DATA197,700,197,200,212,800 

240 PRINT"[HOM3[11CD3[9CR3[REV 3[G>N3[G<T3[G>M3[CD3[3CL3[G>03[G<T3[G)P3[CD3[3CL3[ 
3G< T 3 " 

241 FORI =7900T07910:POKEI+C0,7:POKEI,4:POKEI -1,32:FORA=1TO100:NEXTA: NEXT I : P0KE79 
10,4 

242 F0RI=1T05000:NEXT:PRINT"[CLS3[REV3[2CD3[CR3ANOTHER GO (Y/N)" 

244 GETZ*: IFZ*< >"Y"ANDY*< >"N"THEN244 

246 IFZ*="Y"THENCLR:RUN 

248 P0KE36879,27:PRINT"[CLS 3[BLU 3"i :P0KE36869,240:END 
250 END 

260 PRINT"[CLS 3[REV 3[CD 3[CYN 3[6CR 3 WELL[YEL 3 [CYN 3 DONE! " 

262 PRINT"[GRN3[REV3[4CD3[4CR3NOW GO[YEL 3 [GRN 3 TO BED" 

264 PRINT"[0FF3[CYN3[5CD3[9CR3FGH" 

266 F0RA=7690T07954STEP22:POKEA+CO,7:POKEA,5:POKEA-22,32:FORI=1TO150:NEXTI:NEXTA 
268 PRINT"[CU3[9CR3IJK- 
270 G0T0242 












SUCKER 


By John Murray 



Sucker is a completely original game for your 64. 

The object of the game is to get six white balls to the 
bottom of the screen and align them in their correct 
position. 

You are a hollow white object. Pick up the balls by 
sucking them up and place them in position by spitting 
them out. 

The puzzle must be solved in 200 seconds or you 
lose the game. If you succeed in aligning the balls 
within the time limit you earn a bonus of fifty points. 

Whilst you are moving the balls several nasties will 
try to land on it - should they succeed then the ball will 
disappear and you have to start over. 

Sucker has a High Score table. 

To move up press key "F5", down "F7", left "Z", 
and right "X”. 

Sucker has been listed using our Easy-Enter 
technique to make it simple for you to enter. Instruc¬ 
tions on how this works can be found on page 3 of this 



1 G0SUB750 

2 PRINT■tCLS3”:P0KE36879,8:F0RA=38400T038400+22*23:POKEA,1:NEXT 

3 V=9*16' l 2 3 4 5 6 7 8 3: 0 =38400-7680: L=0: Z=102: 0=0: SV=36878: SN=36875 

4 T=2O0-0:1=0 

5 PRINT*!CLS3“:FORJ=7746T07767:POKEJ,Z:POKEJ + C,4:G0SUB160 

6 NEXT 

7 FORJ=7768T08142STEP22:POKEJ,Z:POKEJ+C,4:G0SUB160 

8 NEXT 

10 FORJ=7789T08163STEP22:POKEJ,Z:POKEJ+C,4:G0SUB160 

11 NEXT 

13 FORJ=8164T08185:POKEJ,Z:POKEJ+C,4:G0SUB160 

14 NEXT 

16 F0RJ=7742T07744:POKEJ,87:NEXT 

17 IFL=2THENPOKE7744,32:Q=0 

18 IFL=4THENP0KE7744,32:POKE7743,32:Q=0 

20 FORJ=7771T07786STEP3:POKEJ,81:POKEJ+C,6:NEXT 
22 P0KE7930,Z:POKE8048,Z:P0KE8042,Z:P0KE8060,Z:P0KE7880,Z 
24 P0KE7825,Z:P0KE7964,Z:P0KE7910,Z:POKE7850,Z:P0KE7989,Z 
26 B=8153:POKEB,87 

30 PRINT *[YEL3 CHOM1 I2CD1 TIME: *T:M = M +1:IFM=4THEN170 
32 PRINT*CYEL3CHOM3SCORE:*P 
36 PRINT”[YEL3!HOM3"TAB(14)“HI:“H 
40 IFT< =99THENP0KE7733,32 
42 IFT< =9THENP0KE7732,32 

44 F0RU=8145T08160STEP3: IFFEEK(U)=81THEN68 

46 IFPEEK(U-22)=81THENPOKEU,81:POKEU+C,6:POKEU-22,87:P0KEU-22+C,1:G0T0350 
48 NEXT 

68 GETA*:IFA*=""THEN30 

69 IFT < =99THENP0KE7733,32 

70 IFT <=9THENPOKE7732,32 

71 IFPEEK<B)=81THEN200 

72 IFA*="Z * THENB=B-1:POKEB+1,32:POKEB+1+C,1:G0T080 
74 IFA*="X"THENB=B+1:POKEB-1,32:POKEB-1+C,1:G0T080 

76 IFA*=CHR*<135)THENB=B-22:POKEB+22,32:P0KEB+22+C,1:G0T080 
78 IFA*=CHR*<136)THENB=B+22:POKEB-22,32:P0KEB-22+C,1 
80 POKEB,87:GOT0120 
100 F=7791+(INT(RND(1)*308>+18) 

102 IFQ=2THENP0KEF,Z:Q=0 
104 G0T030 

120 IFT< =OTHENL = L + 1:G0T0650 

124 POKEV+13,253:F0RY=3T00:POKEV+14,Y:NEXT:POKEV+13,0 

125 IFPEEK(B-l)=ZTHENS=B 
127 IFPEEK(B+1)=ZTHEND=B 
129 IFPEEK(B-22)=ZTHENW=B 
131 IFPEEK(B+22)=ZTHENE=B 

133 IFS=B+10RD=B-1THENG0SUB240 
135 IFW=B+220RE=B-22THENG0SUB240 

137 G=G+1:G0SUB410 

138 FORX=7771T07786STEP3:IFPEEK(X)=32THEN152 

140 IFPEEK < X + 22)=87THENP0KEB,81:POKEB + C,6:POKEX,32:POKEX + C,1:G0T0300 
142 NEXT _ 



I fWifi 






















152 G0T068 

160 POKEV+13,150:F0RY=3T00:P0KEV+14,Y:NEXT:POKEV+13,0:RETURN 

170 t=t-i:q=q+i:m=o:ift<=othenl=l+i 

172 IFL=10RL=3THEN650 

173 IFL=5THEN700 

174 G0T0100 

200 IFA*="Z"THENB = B- 1 : POKEB+1, 32: POKEB♦ 1+C, 1 : G0T0210 

202 IFAS="X"THENB=B+1:POKEB-1,32:POKEB-1 +C ,1:G0T0210 

204 IF A*=CHRS(135)THENB = B- 22:POKEB* 22,32:POKEB + 22 + C,1:G0T0210 

206 IFA*=CHR*<136)THENB=B+22:POKEB-22,32:P0KEB-22+C,1:G0T0210 

210 POKEB,81:POKEB + C,6:GOTO120 

240 T = T- 5:PRINT"t YEL 1t HOM]C 2CD1TIME: “T 

244 S=B-22:D=B+22:W=B-484:E=B+484:RETURN 

300 POKEV♦13,252:FORY-OT03:POKEV+14,Y:FORR«1T080:NEXT:NEXT:POKEV+13,0:G0T068 
350 POKEV+13,252:FORY=3TOO:POKEV+14,Y:FORR-1T080:NEXT:NEXT:POKEV+13,O 
360 P=P+10:l-I+i:IFI=6THEN0=0+10:P=P+50:G0T04 
370 G0T068 

410 IFG=2THENT = T-1:PRINT*IYEL1CHOM J[2CD1 TIME: "T 
420 F=7791+(INT(RND(1)*308)+18) 

422 IFG=2THENP0KEF,Z:G=0 

424 RETURN 

650 IFL=5THEN700 

660 POKESV,8:POKESN,251:F0RR=1T0500:NEXT:POKESN,O:L-L+1:G0T04 
700 POKESV,8:POKESN,255:FORR=1T0500:NEXT:POKESN,0 
710 POKE36879,26:IFP<=HTHENH=H 
718 1FP >HTHENH = P 

720 PRINT"CCLS1CCD]C 5SPC1C REV 3C BLK1HI SCORE I OFF 1: -H 

721 PRINT“CCDJC3SPC1[REV!tBLK1 YOUR SCOREtOFF];■P 
723 PRINT“[6CDlt BLK]C 3SPC]LIKE ANOTHER GO?" 

725 PR INT"[3CD]18SPCJ C REV]C PUR]Y t OFF]t 3SPC]t REV][PUR 1 N C OFF]" 

726 GETC*:IFC*="“THEN726 

727 IFC*="Z"ORC*="X“ORC*=CHR*(135)ORC*=CHR*(136)THEN726 

729 IFC*="N"THENPOKE36879,27:PRINT*[REV1CBLU1IOFF3CCLS3":END 

730 IFC*="Y”THENP*0:G0T02 

750 PR INT"t CLS1C4CD]C7SPC]C BLU]C 8G< 6J “ 

751 PRINT “ [ 4SPC J C BLU J [ REV ]*•#••#•[ OFF ] C G< G ] I BLK ] SUCKERC BLU ] I G<M] [ REVHHHKOFF ] * 
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J^^^Seas^nter 

How we reproduce 


We have 
program 


When you see.. -It means.. And you 


cursor up 
cursor down 
cursor left 


press the 'cursor 
up' key (shifted) 

press the 'cursor 
down' key 

press the'cursor 

left' key (shifted) 


change to red 
change to cyan 


HOW we ___ "tt 

__ I r>rnccthpREDkeV 

(RED) 

(CYN) 

(PUR) 

(GRN) 

(BLU) 

(YEL) 

(REV) 

(OFF) 

(SPC) 


cursor to the top press the HOME 
lefthand corner key 

press the CLR key 
(shifted) 


clear 


press the RED key 

(CTRL and 3) 

presstheCYNkey 

(CTRL and 4) 

Tn ™ te¥ 

change to green 
change to blue 

change to,allow ore ^eVELtey 


insert 


press the INSert 
key (shifted) 

change to black 

change to white 


reverse on 


reverse off 


space 


press the RVS ON 
key (CRTL and 9) 

press the RVS OFF 
key (CTRL and 0) 

press the space 
bar; repeat 
the specified 
number of times 
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When you see any 

of the codes 
prefixed by a 
number, you must 
press the 
appropriate key 
the same number 
of times. 

for example: 


(3SPC) 

means-press the 
spacebar three 
times 
or 

(5CD) 

means - press 
cursor down' key 
five times 
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- 

(f&Z 


tab \ 

v. ‘ ^^0 
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, h _ r with CBM key 
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COMPUTE 


JEU0JON 
GOTTA NEW 


Most new computer owners are very 
quickly distressed to learn that the buying 
headaches don't end when you get your 
new machine out of the box. The new 
worry is software. Whatever it is you are 
interested in - whether it be games or 
business - there is a bewildering choice of 
products in each category. The Complete 
Commodore Software Guide is now here 
to help. Published FREE with next months 
Commodore User this invaluable software 
Guide is not be missed. Over a thousand 
products are listed with comment, 
recomendations, best prices, availability 
and our at-a-glance symbol references. 

We have brought together an impressive 
team of experts to write the Software 
Guide. Josephine Adams, Editor of 
Educational Computing, provides the 
home education software reviews, 

Karl Dallas on Business software, 

John Ransley on adventure games, 

Laurie Sampson on arcade games, and 
Seamus St John of Computer and Video 
Games and the Daily Mirror on 
simulations. Its one bumper Software 
Guide, its absolutely free when you buy 
our excellent February edition and its on 
sale at your newsagents on February 1st. 
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